Código Delphi [-] if BD.QG1.Eof then ...
if BD.QG1.Eof then ...
Código Delphi [-] ... var Error: Integer; begin if BD.QG1.Eof then ShowMessage('Fin de archivo') else ShowMessage('No es fin de archivo'); ...
... var Error: Integer; begin if BD.QG1.Eof then ShowMessage('Fin de archivo') else ShowMessage('No es fin de archivo'); ...