Halo,
ich versuche schon seit tagen mir eine procedure zu schreiben, die mit einem rutsch alle Inhalte von CKomponenten eins TTabSheet in einer *.ini-Datei speichert/lädt.. Das ganze so
Delphi-Quellcode:
procedure TSettMan.LoadTabSheet(TabSheet: TTabSheet; IniFile: TIniFile);
var i: Integer; Section, Ident : String; CurrCtrl: TControl; CurrClass: TClass;
begin
...
for i:=0 to TabSheet.ControlCount-1 do
begin
Section := TabSheet.Caption;
CurrCtrl := TabSheet.Controls[i];
CurrClass := CurrCtrl.ClassType;
Ident := CurrCtrl.Name;
...
else
if (CurrClass = TCheckBox) then
TCheckBox(CurrClass).Checked := IniFile.ReadBool(Section, Ident, False)
else
...
end;//for
end;{procedure}
TEdit, TMemo, usw Funktionieren auch ganz prima, aber bei der CheckBox giebts ne Zugriffsverletzung wenn ich der CheckBox irgendeinen Wert zuweisen möchte.
weis jemand vieleicht, wieso das so ist, und wie ich das problem beheben kann?
ciao..Con