Uso de sql en vez de locate

[ecfisa]

Empezado por jafera

Gracias Ecfisa.

El componente Camions es un IBDataset de firebird que contiene aproximadamente mil quinientos registros.

Saludos

¡Perfecto! entonces podes usar directamente el TIBDataSet

Algo similar a esto:

Código Delphi [-]
var
  tmp: string;
begin
  with F_ModulDades.Camions do
  begin
    tmp := SelectSQL.Text;  // Salvar consulta original en tmp
    Close;
    SelectSQL.Text := 'SELECT * FROM BOM0001 WHERE ID = :PID';
    ParamByName('PID').AsInteger :=  Camions_ParcID.AsInteger;
    Open;
  end;

  if not Assigned(F_Camions) then
  begin
    F_Camions := TF_Camions.Create(nil);
    F_Camions.ShowModal
  end
  else
    F_Camions.BringToFront;
  
  // al finalizar, restaurar la consulta SQL original en Camions
  with F_ModulDades.Camions do
  begin
    Close;
    SelectSQL.Text := tmp;
    Open;
  end;
end;

Saludos