registro no existe y consultarlos

[ecfisa]

Hola Agustin.

Probá de este modo:

Código Delphi [-]
  Temp.Close;
  Temp.SQL.Clear;
  Temp.SQL.Text:= 'SELECT CODIGO,FECHA,PAIS FROM PAIS ';
  if EdCodBuscar.Text <> '' then
   Temp.SQL.Add('WHERE CODIGO = ' + QuotedStr(EdCodBuscar.Text))
  else if EdPaisBuscar.Text <> '' then
   Temp.SQL.Add('WHERE PAIS = ' + QuotedStr(EdPaisBuscar.Text));
  Temp.Open;
  if not Temp.IsEmpty then
  begin
    EdCodBuscar.text:= Temp.Fields[0].AsString;
    EdFechaBuscar.Text:= Temp.Fields[1].AsString;
    EDPaisBuscar.Text:= Temp.Fields[2].AsString;
  end
  else
    ShowMessage('Registro no encontrado');

Saludos.