Wenn du jetzt noch schreiben würdest wie dein Source mittlerweile aussieht....
Auf deinen ersten Post bezogen gehst du aber falsch an die Sache ran. Case ist für eine Bedingung unnötig. und diese prüfst du auch noch falsch.
Zitat:
Delphi-Quellcode:
case i.ItemChecked of
[0]:
begin
qTelefonliste.SQL.Strings [2] := 'BEZUGSPERSON ='
end;
Itemchecked ist höchstwahrscheinleich ein boolscher Wert. Also True oder False. Kein anderer Wert möglich. Du prüfst aber, ob er [0] ist.
Was du vermutlich machen willst ist
Delphi-Quellcode:
if i.Itemchecked[0] Then
Begin
qTelefonliste.SQL.Strings [2] := 'BEZUGSPERSON ='
End;
evtl. isses auch
Delphi-Quellcode:
if i[0].Itemchecked Then
Begin
qTelefonliste.SQL.Strings [2] := 'BEZUGSPERSON ='
End;
Kommt auf den Aufbau dieser Liste an.