Checkbox Indiziert aufrufen

[Die Muhkuh]

Hi und herzlich Willkommen!

Versuch es mal so:

Zitat von Arthan:

Delphi-Quellcode:

procedure TForm1.saveClick(Sender: TObject); 
var Ini: TIniFile; 
    i: Integer; 
begin 
  Ini := TIniFile.Create(ExtractFilePath(ParamStr )+'sav.sav'); 
    for i := 1 to 59 do begin 
        Ini.WriteBool('Checkboxes', IntToStr(i), (FindComponent('checkbox'+inttostr(i)) as TCheckBox).checked); 
    end; 
end;