Folgendes Problem: Ich möchte über OpenDialog eine Exe auswählen und dann den Pfad zur Exe in einer Edit Box ausgeben. Klappt prima. Nun soll der Pfad in der Datei pfad.txt gespeichert werden damit man beim Programmstart nicht wieder den Pfad neu eingeben muss. Leider klappt das mit dem abspeichern nicht so toll.
Wähl ich über OpenDialog den Pfad aus und speicher in, wird er nicht gespeichert. Wenn ich per Hand was in die Edit Box tippe (Es wird nur der Inhalt der Edit Box gespeichert) so klappt dies komischerweise wunderbar und der von mir eingegebene Text erscheint in der Edit Box beim neustart des Programms.
Prozedur die OpenDialog öffnet und den Pfad speichert.
|
Quellcode
|
1
2
3
4
5
6
7
8
|
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text := '';
opendialog1.execute;
edit1.Text := opendialog1.filename;
pfad := opendialog1.FileName;
end;
|
Prozedur die beim Beenden alles in die Text-Datei abspeichert:
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
Datei: TextFile;
begin
AssignFile(Datei, 'pfad.txt');
Rewrite(Datei);
try
WriteLn(Datei, edit1.text);
finally
CloseFile(Datei);
end;
end;
|
Ich hoffe ihr könnt mir helfen :?
EDIT: Falls es eine Rolle spielt, ich benutzte Delphi 2009