Du bist nicht angemeldet.

Stilllegung des Forums
Das Forum wurde am 05.06.2023 nach über 20 Jahren stillgelegt (weitere Informationen und ein kleiner Rückblick).
Registrierungen, Anmeldungen und Postings sind nicht mehr möglich. Öffentliche Inhalte sind weiterhin zugänglich.
Das Team von spieleprogrammierer.de bedankt sich bei der Community für die vielen schönen Jahre.
Wenn du eine deutschsprachige Spieleentwickler-Community suchst, schau doch mal im Discord und auf ZFX vorbei!

[Erledigt] OpenDialog Pfad in einer Textdatei abspeichern

Werbeanzeige

N_E_O

Frischling

  • »N_E_O« ist der Autor dieses Themas

Beiträge: 23

  • Private Nachricht senden

1

06.03.2009, 20:51

[Erledigt] OpenDialog Pfad in einer Textdatei abspeichern

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

N_E_O

Frischling

  • »N_E_O« ist der Autor dieses Themas

Beiträge: 23

  • Private Nachricht senden

2

07.03.2009, 08:43

ok problem solved.

so wie da oben geschrieben klappt es nicht weil ich absolute Pfade angeben muss.

Speichern kann ich also die Datei nur hiermit:

Quellcode

 
1

AssignFile(MyFile, ExtractFilePath(ParamStr(0)) + 'pfad.txt');