Código Delphi [-] ... with datamodule2.FDQuery6 do begin Close; Sql.Text := 'SELECT SUM( PUNTOS ) AS PTOS FROM EVA_ESTUDIANTES'; Open; Label12.Caption := IntToStr( StrToInt( Label12.Caption ) - FieldByName( 'PTOS' ).Value ); Edit2.Clear; end; ...
... with datamodule2.FDQuery6 do begin Close; Sql.Text := 'SELECT SUM( PUNTOS ) AS PTOS FROM EVA_ESTUDIANTES'; Open; Label12.Caption := IntToStr( StrToInt( Label12.Caption ) - FieldByName( 'PTOS' ).Value ); Edit2.Clear; end; ...