Thema: Delphi Edittext speichern

Einzelnen Beitrag anzeigen

stiftII

Registriert seit: 2. Sep 2009
Ort: Cuxhaven
122 Beiträge
 
#3

Re: Edittext speichern

  Alt 11. Okt 2009, 03:20
Hallo,
Du kannst zB. eine Datei erzeugen, in der diese Zahl gespeichert wird, diese lädst du dann beim erneuten Start des Programmes.

Delphi-Quellcode:
var
myfile : textfile;
s1 : string;
begin
//Überprüfen ob datei existiert
If Not fileExists('MeineZahl.txt') Then
 Begin
   //Wenn nicht mit wert von edit1 füllen
   AssignFile(myfile,'MeineZahl.txt');
   Rewrite(myfile);
   WriteLn(myfile,edit1.text);
 end else
 begin
   //Wenn Existiert, edit1 mit mit meinezahl.txt füllen..
   AssignFile(myfile,'MeineZahl.txt');
   reset(myfile);
   readln(myfile,s1);
   edit1.Text := s1;
 end;
 //Datei schließen.
 closefile(myfile);
Wenn du möchtest, dass die zahl, welche im edit1 steht beim schließen des Programmes gespeichert wird, dann führe das ganze im OnDestroy Ereignis deiner Hauptform aus.

Und zum einlesen eben beim OnCreate Ereignis.

~stift
  Mit Zitat antworten Zitat