Ergebnis der Suchanfrage

• Forum: FreePascal

  Re: TCheckgroup Items auslesen

   
    by DeddyH, 21. Jan 2009
  Es geht ja darum, den Checked-Status zu berücksichtigen, wenn ich das richtig verstehe. Noch ein Beispiel mit einer Stringliste statt einer DB:
  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 then
  sl.Add(Checkgroup1.Items);