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:

markieren

Delphi-Quellcode:

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

Test Procedure

zusammenfalten · markieren

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

Hallo,

das müssen afaik published properties sein.

Jo, danke klappt:

Der funktionierende Code:

zusammenfalten · markieren

Delphi-Quellcode:

  TSettings=class(Tcomponent)
  private
    fs:string;
    fi:Integer;
  published
    property s:string read fs write fs;
    property i:integer read fi write fi;
  public
    procedure SaveConfig;
    procedure ReadConfig;
  end;

var
  Form1: TForm1;

  Settings:TSettings;

implementation

{$R *.dfm}



procedure TSettings.SaveConfig;
begin
  WriteComponentResFile(extractfilepath(ParamStr(0)) + 'Settings.dat',Self);
end;

procedure TSettings.ReadConfig;
begin
  if fileexists(extractfilepath(ParamStr(0)) + 'Settings.dat') then
    try
      Self := TSettings(ReadComponentResFile(extractfilepath(ParamStr(0)) + 'Settings.dat', Self));
    except
    end
end;


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

  Settings.SaveConfig;

  Settings.Free;


  Settings:=TSettings.Create(self);

  Settings.ReadConfig;
  
  ShowMessage(settings.s);
  ShowMessage(inttostr(Settings.i));

  Settings.Free;


  close;
end;

Tschüss

Alexander