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

zusammenfalten · markieren

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

zusammenfalten · markieren

Delphi-Quellcode:

procedure TSettMan.LoadTabSheet(TabSheet: TTabSheet; IniFile: TIniFile);
  var i: Integer; Section, Ident : String; CurrCtrl: TControl; CurrClass: TClass;
begin
  Section := TabSheet.Caption;
  ...
  for i:=0 to TabSheet.ControlCount-1 do
  begin
    CurrCtrl := TabSheet.Controls[i];
    Ident := CurrCtrl.Name;
 
    ...
    else
      if (CurrCtrl is TCheckBox) then
          (CurrCtrl as TCheckBox).Checked := IniFile.ReadBool(Section, Ident, False)
    else
    ...
  end;//for
end;{procedure}

oh.. es klappt
..danke schön