Ini wird nicht geladen

[Hallo_Thomas]

Ich baue im Moment so ne Art Optionsfenster auf, in dem sollen mit Spinedits die Parameter verändert werden, Leider werden die Änderungen nicht langfristig übernommen und beim nächsten Programmstart sind wieder die alten Werte da!

Ich stelle mir so Art Übernehmen Button vor, wie müsste da die Befehlszeile aussehen?

[Waldteufel]

Hi.

Natürlich musst du die Änderungen auch in eine Datei speichern. Ich empfehle eine INI-Datei. Guck mal unter TIniFile

[edit] Meinst du die Parameter, die man über ParamStr abfragen kann? [/edit]

[Hallo_Thomas]

@ Waldteufel

Weis noch nicht, hab so was noch nicht programmieren.

[Khabarakh]

Zitat von Hallo_Thomas:

... , hab so was noch nicht programmieren.

Schau dir mal dieses Tutorial an.

[Hallo_Thomas]

Hab mal versucht die Seite Umzusetzen, ich hab allerdings doch ein paar fehler drin;

1. Beim Prommstart werden werden nicht die data.ini Werte genommen sondern die vom OI.
2.Gehe ich ins Feld Form2 wo die Werte sind springen die auf Null, also werden nicht aus der Data.Ini gelesen.



Quelltext

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ini: TIniFile;
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'data.ini');
ini.free;
end;

Unit

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var ini: TIniFile;
begin
   Ini:=TIniFile.Create(ExtractFilePath(application.Exename)+'data.ini');
  Ini.WriteInteger('Chance1/4', 'Gelb', Form2.SpinEdit1.Value );
  Ini.WriteInteger('Chance1/4', 'Blau', Form2.SpinEdit2.Value );
  Ini.Free;
  close;
end;
procedure TForm2.FormShow(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.Create('data.ini');
  try
    Form2.SpinEdit1.Value:=ini.ReadInteger('Chance1/4', 'Gelb',0 );
    Form2.SpinEdit2.Value:=ini.ReadInteger('Chance1/4', 'Blau',0 );
  finally
    ini.free;
  end;