Check-Group und case of...

[alcaeus]

Zitat von JSB:

cgfilter= CheckGroup

CheckGroup? Watn dat? Ich kenn nur die CheckListBox. Du koenntest mit ItemIndex versuchen zu arbeiten, oder ueber eine zusaetzliche Funktion:

Delphi-Quellcode:

procedure TForm1.HandleItems(ix: Integer);
begin
  case ix of
    0: qTelefonliste.SQL.Strings [2] := 'BEZUGSPERSON =';
  end;
end;

//...

for i := 0 to i.Items.Count-1 do
  if i.ItemChecked[i] then
    HandleItems(i);

Evtl. solltest du aber mal erklaeren was die CheckGroup sein soll

Greetz
alcaeus