Cita:
Que puedo estar haciendo mal ??
|
Hola Ibidi.
Es difícil saber sin ver el código, pero supongo que podrías hacer algo por el estilo:
Código Delphi
[-]
...
function TMDIForm.Consulta(Dato: Variant): Boolean;
begin
with TuQuery do
begin
SQL.Text:= 'SELECT * FROM TU_TABLA WHERE TU_CAMPO = :DATO';
ParamByName('DATO').Value:= Dato;
Open;
Result:= not IsEmpty;
Close;
end;
end;
procedure TMDIForm.btnConsultarClick(Sender: TObject);
begin
if not Consulta('DATO_QUE_NO_EXISTE') then Close;
end;
...
procedure TMDIForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
Saludos.
Edito: No había visto el mensaje de
MartinS, básicamente es la misma idea.