Pointer und TObject

[Martin K]

Hab noch eine andere Idee:

Allerdings: Gibts so was wie FindProperty (also wie FindComponent), so dass ich z.B. die Eigenschaft Caption von meiner Form1 erhalten kann?
etwa so: FindProperty('Form1.Caption');

Dann wäre es nämlich einfach:

Delphi-Quellcode:

//speichern:
procedure Speichern(ObjectName, PropertyName: String);
begin
  IniFile.WriteString(ObjectName, PropertyName, FindProperty(ObjectName+'.'+PropertyName);
end;

//Aufruf:
Speichern('Form1', 'Caption');


//laden:
procedure Laden;
var s1, s2: TStrings; i1, i2: Integer;
begin
  s1 := TStrings.Create;
  s2 := TStrings.Create;
  IniFile.ReadSections(s1);

  for i1 := 0 to s1.Count-1 do
  begin
    IniFile.ReadSection(s1[i1], s2);

    for i2 := 0 to s2.Count-1 do
      FindProperty(s1[i1]+'.'s2[i2]) := IniFile.ReadString(s1[i1], s2[i2], '');

    s2.Clear;
  end;

  s1.Free;
  s2.Free;
end;