Busquedas en combobox

[ecfisa]

Hola cmfab.

Cometí una omisión en el código anterior, debería ser:

Código Delphi [-]
// Buscar por términos
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  TS: TStringList;
  s: string;
  i: Integer;
begin
  TS:= TStringList.Create;
  try
    TS.Delimiter:= ' ';
    TS.DelimitedText:= UpperCase(ComboBox1.Text);
    s:='WHERE ';
    for i:= 0 to TS.Count-1 do
      s:= s + 'DOMICILIO' + ' CONTAINING UPPER('+ QuotedStr(TS[i]) + ')AND ';
  finally
    TS.Free;
  end;
  SetLength(s, Length(s)-Length(')AND'));
  with IBQuery1 do
  begin
    Close;
    SQL.Text:= 'SELECT * FROM CLIENTES ' + s;
    Open;
  end;
end;

Disculpas.

Saludos.