Checkbox Indiziert aufrufen

[Arthan]

Ein Kumpel von mir will als Info-Projekt ein Programm zur Verwaltung von Fähigkeiten bei nem Onlinegame schreiben.
er muss dazu auch den Zustand von mehreren (vielen) checkboxen speichern.
Momentan benutzt er dazu folgenden (nicht funktionierenden) Code:

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)).checked); 
    end; 
end;

Das Problem besteht darin, dass die checked-Eigenschaft eine Exception:
[Fehler] elite1.pas(109): E2003 Undefinierter Bezeichner: 'checked' hervorruft.
Kann mir Irgendjemand sagen, wie man die Werte praktikabel speichern kann?


Hoffe auf Hilfe,

Arthan

[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;

[Arthan]

Danke!
Vielen, vielen Dank.
Und jetzt noch eine Frage: Wie kommt man darauf?

[mkinzler]

.FindComponent() liefert ein TComponent zurück. .Checked ist aber eine Eigenschaft einer CheckBox. Da es sich um eine Checkbox handelt kannst du nach diesem Typ casten