TCheckgroup Items auslesen

[DeddyH]

Es geht ja darum, den Checked-Status zu berücksichtigen, wenn ich das richtig verstehe. Noch ein Beispiel mit einer Stringliste statt einer DB:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    sl: TStringlist;
begin
  sl := TStringlist.Create;
  try
    for i := 0 to Checkgroup1.Items.Count - 1 do
      if Checkgroup1.Checked[i] then
        sl.Add(Checkgroup1.Items[i]);
    sl.SaveToFile(Dateiname);
  finally
    sl.Free;
  end;
end;