Das wär ein Fall für die Registry. Du rufst einfach im onClose deines MainForms die Procedure TForm1.SaveToRegistry und im onCreate die Procedure TForm1.LoadFromRegistry auf. Falls du es aber auf jeden Fall mit Dateien machen willst kann ich dir auch ein Beispiel mit Ini Dateien schreiben.
uses registry;
procedure TForm1.SaveToRegistry;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
// Öffnet den Root Key HKEY_LOCAL_MACHINE bzw. HKEY_CURRENT_USER
Reg.RootKey := HKEY_LOCAL_MACHINE;
// Mit OpenKey den Key für dein Programm (Deine_Firma\Dein_Programm) öffnen
// bzw. erzeugen falls er noch nicht vorhanden ist
if Reg.OpenKey('\Software\Deine_Firma\Dein_Programm', True) then begin
// Den Inhalt von Edit1 speichern
Reg.WriteString('Value_Edit1',Edit1.Text);
end;
finally
Reg.CloseKey;
Reg.Free;
end;
end;
procedure TForm1.LoadFromRegistry;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
// Öffnet den Root Key HKEY_LOCAL_MACHINE bzw. HKEY_CURRENT_USER
Reg.RootKey := HKEY_LOCAL_MACHINE;
// Mit OpenKey den Key für dein Programm (Deine_Firma\Dein_Programm) öffnen
// bzw. erzeugen falls er noch nicht vorhanden ist
if Reg.OpenKey('\Software\Deine_Firma\Dein_Programm', True) then begin
// Den Inhalt von Edit1 lesen
Edit1.Text := Reg.ReadString('Value_Edit1');
end;
finally
Reg.CloseKey;
Reg.Free;
end;
end;
lg Yoghurt
|