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