Thema: Delphi viele viele Checkboxes

Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#4
  Alt 13. Nov 2002, 12:28
Wenn Du die Checkboxen von 1 bis z.B. 15 durchnummerierst (CheckBox__), dann

Delphi-Quellcode:
procedure TForm1.SaveCheckBoxes;
var
  I: Integer;
begin
  for I := 1 to 15 do
    Datei.Add(IntToStr(Integer(TCheckBox(FindComponent('CheckBox' + IntToStr(I))).Checked)));
end;

procedure TForm1.LoadCheckBoxes;
var
  I: Integer;
begin
  for I := 1 to 15 do
    TCheckBox(FindComponent('CheckBox' + IntToStr(I))).Checked := Datei[I] = '-1';
end;
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat