DELPHI FRAGE 2

[rattler]

hi leute
weiß jemand von euch einen befehl der das bezweckt:

man schreibt was in ein edit feld;
man schließt das programm;
wenn man es öffnet steht das noch immer drinnen;

wäre super wenn ihr mir das sagen könntet

thx

[psykoman]

öhhmm so weit ich weiß,

man schließt das programm --> alle Daten werden aus dem RAM gelöscht

wie willst du da ohne Dateien was speichern? Du kannst ja einfach ne text datei machen, bei onclose schreibst du das editfeld in die text datei, und bei oncreate liest dus wieder ein. wenn du dir ne funktion fürs ein und auslesen machst, hast du auch Befehle

[rattler]

könntest ma villeicht auch erklären wie man das macht

wäre echt super

[Yoghurt]

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