TEdit speichern und lesen

[Wikes]

Also ich habe es probiert baumina.

Code sieht so aus in meiner Form:

Delphi-Quellcode:

// Form_Test.OnCreate
procedure isi_FormCreate(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile('C:\Projekts\Textdokument.txt');
    if List.Count>0 then
      Edit1.Text:=List[0];
  finally
    List.Free;
  end;
end;


// Form_Test.OnDestroy
procedure isi_FormDestroy(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.Add(Edit1.Text);
    List.SaveToFile('C:\Projekts\Textdokument.txt');
  finally
    List.Free;
  end;
end;

Das lesen funktioniert beim Öffnen des Programms, aber das Speichern bzw. überschreiben nicht.