Einzelnen Beitrag anzeigen

Benutzerbild von Treffnix
Treffnix

Registriert seit: 25. Jun 2003
Ort: AC
740 Beiträge
 
Delphi 7 Professional
 
#6

Re: Check-Group und case of...

  Alt 6. Apr 2005, 09:44
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.
  Mit Zitat antworten Zitat