Daten speichern

[marabu]

Hallo Lukas,

schau dir mal die Änderungen an, die ich an deinem Code gemacht habe:

Delphi-Quellcode:

unit Unit1;

type
  TForm1 = class(TForm)
    // ...
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    // ...
  private
    ini: TMemIniFile;
  end;

var 
  Form1: TForm1;

implementation

uses
  ABOUT;

{$R *.dfm}

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  Ini.WriteString('Daten', Edit1.Name, Edit1.Text);
  Ini.WriteString('Daten', Edit2.Name, Edit2.Text);
  // ...
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  Edit1.Text := Ini.ReadString('Daten', Edit1.Name, 'Default-Angabe');
  // ...
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Edit1.Enabled := CheckBox1.Checked;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Ini := TMemIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data.ini');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Ini.UpdateFile;
end;

end.

Freundliche Grüße vom marabu