Checkbox - Problem mit der Reihenfolge

[marabu]

Hallo,

die von mir temporär benutzte StringList muss auch erzeugt werden. Ich würde die Änderungen am Code ungefähr so einbauen:

Delphi-Quellcode:

begin
  // ...
  s := TStringList.Create;
  for i := 0 to Pred(MAX_BOXES) do
    s.Add(Format('%s wert %s LIKE %s', [
      IfThen(s.Count = 1, ' AND'),
      IfThen(not Boxes[i].Checked, 'NOT'),
      QuotedStr('%' + Boxes[i].Name + '%')
    ]));
  sText := InitialText + s.Text;
  s.Free;
  Query.SQL.Text := sText;
  Query.Open;
  // ...
end;

Gute Nacht