WriteComponentResFile und ReadComponentResFile

[Alexander Roth]

Hi,

also ich habe nach einer guten Möglichkeit gesucht Programmoptionen zu speichern und bin hierauf (weit unten) gestoßen (Siehe Titel).
Nun habe ich eine kleine Test Procedure geschrieben um das auszuprobieren, doch es klappt nicht.
Was mache ich falsch?

Die Klasse:

Delphi-Quellcode:

  TSettings=class(Tcomponent)
  private
    f:string;
    i:Integer;
  end;

Test Procedure

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Settings:=TSettings.Create(self);
  Settings.f:='hallo ich bins';
  Settings.i:=15;

  WriteComponentResFile(extractfilepath(ParamStr(0)) + 'Settings.dat', Settings);

  Settings.Free;// mache ich damit ich sichergehe, dass die Daten nicht noch von dem "alten" Objekt kommen


  Settings:=TSettings.Create(self);

  Settings := TSettings(ReadComponentResFile(extractfilepath(ParamStr(0)) + 'Settings.dat', Settings));
  ShowMessage(settings.f);   // hier bingt er ''
  ShowMessage(inttostr(Settings.i));   // hier bringt er 0

  Settings.Free;
end;

Gruß Alexander