Highscore erstellen, speicher, laden

[bl4ckb1rd]

Ok wieder ein Problem mit dem Speichern ;(

Gespeichert wird diesmal nur das, was in einem Edit feld sich befindent. Gebe ich jetzt über die Tastatur 'asdf' ein, so wird es gespeichert und bei Programm neustart wieder geladen. Wenn ich jetzt über OpenDialog, einen ganzen Pfad in das Edit-Feld übergebe, wird diese komischerweise gar nicht gespeichert o.O


So sieht die betroffene Stelle in Delphi aus (Ich benutze Delphi 2009 falls es eine Rolle spielt):

Text auslesen und ausgeben:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
MyFile: TextFile;
    temp: String;
begin
  opendialog1.filter:='Programme|*.exe';
  assignfile(MyFile, 'pfad.txt');

  if not fileexists('pfad.txt') then
  rewrite(MyFile);

  reset(MyFile);

  readln(MyFile, temp);
  edit1.text := temp;

  closefile(MyFile);
end;

Text speichern:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
MyFile: TextFile;
    temp: String;
begin

  temp:=edit1.text;


  assignfile(MyFile,'pfad.txt');
  rewrite(MyFile);

  append(MyFile);
  write(MyFile, temp);
  closefile(MyFile);
end;

OpenDialog Pfad auslesen und zwischen speicher:

Delphi-Quellcode:

procedure TForm1.AdvGlowButton1Click(Sender: TObject);
begin
  edit1.Text := '';
  opendialog1.execute;
  edit1.Text := opendialog1.filename;

  pfad := opendialog1.FileName;

end;

Wie schon gesagt, gebe ich per Hand was ein wie ASDFblablabal speichert er alles, wähle ich über OpenDialog einen Pfad, wird diese nicht gespeichert.