Consulta rapida sobre buscar en una tabla

[Leopard2]

Hola, tengo una duda sobre usar Locate y Select, he buscado en varios post y según lo que he leido Locate funciona en modo local, es decir si traigo los datos de la tabla a la terminal pero si uso una instrucción Select, si el registro existe me lo muestra sin problema pero si no existe como retorna el valor de "no encontrado" o "False" para tomarlo como lo hace Locate?
Uso Firebird 2.5 con IBX

Ejemplo Locate :

Código Delphi [-]
Var
  R_es: Boolean;
begin
  C_od := FBuscodi.Edit1.Text;
  if C_od = '' then
  begin
    MessageDlg('! NO puede Ingresar el Codigo en Blanco !',mtConfirmation,[mbOK], 0);
    Exit;
  end;
  R_es:= Masterdb.Bodega.Locate('CODIGO', C_od, []);
  if R_es = False then
  begin
    MessageDlg('! El Codigo NO Existe !',mtConfirmation,[mbOK], 0);
    Exit;
  end

ejemplo SQL:

Código Delphi [-]
   
  DM.ValeMas.close;
  DM.ValeMas.SelectSql.Clear;
  DM.ValeMas.SelectSql.Add('Select * From BODEGA WHERE NUMERO = :BUSCADO');
  DM.ValeMas.SelectSql.Add('ORDER BY NUMERO');
  DM.ValeMas.ParamByName('BUSCADO').AsInteger:= Nva;
  DM.ValeMas.Open;

O

Código Delphi [-]
     
  MasterDB.IBQuery1.close;
  MasterDB.IBQuery1.Sql.Clear;
  MasterDB.IBQuery1.Sql.Add('Select Codigo,Descripcion,Stock,Proveedor,Fecha_c From BODEGA WHERE CODIGO LIKE :BUSCADO');
  MasterDB.IBQuery1.ParamByName('BUSCADO').AsString:= EditCon.Text+'%';
  MasterDB.IBQuery1.Open;

Saludos

[ecfisa]

Empezado por Leopard2

... pero si uso una instrucción Select, si el registro existe me lo muestra sin problema pero si no existe como retorna el valor de "no encontrado" o "False" para tomarlo como lo hace Locate?

Hola Leopard2.

Podes usar el método IsEmpty:

Código Delphi [-]
function TForm1.CodeExists(const Code: string): Boolean;
begin
  with IBQuery do
  begin
    Close;
    SQL.Text:= 'SELECT CODIGO FROM TABLA WHERE CODIGO = :PCOD';
    ParamByName('PCOD').AsString:= Code;
    Open;
    Result:= not IsEmpty;
  end;
end;

Ej. de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if CodeExists('000111') then
    ShowMessage('El código existe')
  else
    ShowMessage('El código no existe');
end;

Saludos

[Leopard2]

Gracias por la respuesta, voy a probarlo.
saludos