%? Alles vor und nach String abfragen?

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const InitialText = 'SELECT * FROM Tabelle WHERE ';
var Boxes: array[0..3] of TCheckbox;
    sText: string;
    i: integer;
begin
  //Array belegen
  Boxes[0] := CheckBox1;
  Boxes[1] := CheckBox2;
  Boxes[2] := CheckBox3;
  Boxes[3] := CheckBox4;
  sText := InitialText;
  for i := Low(Boxes) to High(Boxes) do
    if Boxes[i].Checked then
      sText := sText + 'wert LIKE ' + QuotedStr('%' + Boxes[i].Caption + '%') +
               ' AND ';
  if Length(sText) > Length(InitialText) then
    begin
      Delete(sText,Length(sText) - 4, Length(sText));
      Query.SQL.Text := sText;
      Query.Open;
    end;
end;