Hola cmfab.
Cometí una omisión en el código anterior, debería ser:
Código Delphi
[-]
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.