Problem mit Save.txt

Melcho · Beiträge: 145 XP

Moin Jungs muss ma was fragen und zwar hab ich ein paar Saves zu tätigen und lege dafür ne Save.txt an aber wie bekomm ich es hin das er die Save.txt immer im Programmverzeichnid anlegt ?

Danke euch !

_________________
PCP saved my life

jasocul · Verfasst: Mi 30.03.05 09:23

Benutze folgende Funktion:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

Function GetAppPath : String;
var
  Pfad : String;
begin
  Pfad := ExtractFilePath(ParamStr(0));
  if Pfad[Length(Pfad)] <> '\' then Pfad := Pfad + '\';
  Result := Pfad;
end;

Und schreibe das Ergebnis vor deinen gewünschten Dateinamen.

Melcho · Beiträge: 145 XP

ohhh Danke alta so schnell und so richtig DANKE DANKE :flehan:

_________________
PCP saved my life

GTA-Place · Verfasst: Mi 30.03.05 10:27

Wieso denn in drei Zeilen?

markieren

Delphi-Quelltext

1:	Pfad := ExtractFilePath(ParamStr(0)) + 'meinOrdner';

Das reicht auch und ob du da noch ein \ oder nicht machst, ist egal.

31>17: 'Get' muss weg.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

jasocul · Verfasst: Mi 30.03.05 10:42

GetExtractFilePath kenn ich nicht. Habe aber auch nur D5Pro.
Bei ExtractFilePath ist die Prüfung auf "\" erforderlich! Wenn das Anwendungsverzeichnis das Hauptverzeichnis ist, wird nämlich kein "\" geliefert!
Man sollte dort zwar keine Applikationen haben, aber sicher ist sicher.

GTA-Place · Verfasst: Mi 30.03.05 10:48

Ah ne, ich mein auch "ExtractFilePath" und bei D7 kommt '\' immer.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme