Kann Pfad in Label.Caption nicht ausgeben

[Codix32]

Hallo und ich werde gleich mal schamhaft rot, aber:

Ich kann tatsächlich keinen Dateipfad im Label ausgeben, wenn die Datei im selben Ordner wie das Programm liegt.

Delphi-Quellcode:

Label1.caption:='.....' + ExtractRelativePath('Uebersicht.txt','');
{oder:}
Label1.caption:='.....' + ExtractFilePath('Uebersicht.txt');

Beide liefern nur das '.....' und einen Leerstring, aber keinen Pfad.

Welche Procedur oder Function gibt mir in diesem Fall den Pfad an?

[mkinzler]

Im String ist nunmal kein Pfad enthalten, den die Funktioen(en) extrahieren könnten

[Andreas L.]

Delphi-Quellcode:

Label1.caption:='.....' + ExtractFilePath(Application.ExeName) + 'Uebersicht.txt'; 
Label1.Refresh;

[Jonas Shinaniganz]

Also du rufst hier: ExtractFilePath() auf und übergibst: 'Uebersicht.txt'.

Übergebe mal: 'C:/Dokumente/Uebersicht.txt'' an die Funktion.

Dann frag dich mal, was die Funktion macht ;)

Grüße.

[Sir Rufo]

Zitat:

Zitat von Jonas Shinaniganz (Beitrag 1191683)

Also du rufst hier: ExtractFilePath() auf und übergibst: 'Uebersicht.txt'.

Übergebe mal: 'C:/Dokumente/Uebersicht.txt'' an die Funktion.

Dann frag dich mal, was die Funktion macht ;)

Grüße.

Ist ungefähr so, wenn ich in einer Apfelplantage die Birnen zählen lasse und mich wundere, dass als Endresultat 0 herauskommt :)

[Codix32]

Ok, ich sagte ja, daß die Funktionen einen Leerstring ausgeben, das habe ich schon verstanden.

Aber das Programm und die Datei liegen im Ordner c:\borland\myProggis\Test und ich suche eine Möglichkeit diesen Pfad in einem Label anzuzeigen.

Muss ich da die WinApi durchstöbern? :oops:

[mkinzler]

Den Pafd zur Exe stehet in ParamStr(0) bzw. Application.Exename

[Codix32]

Zitat:

Zitat von mkinzler (Beitrag 1191697)

Den Pafd zur Exe stehet in ParamStr(0) bzw. Application.Exename

Ok, dann könnte ich sowas machen...

Delphi-Quellcode:

if FileExists('Uebersicht.txt') then
begin
  if extractFileDir('Uebersicht.txt') <> ''
    then Label1.caption:= extractFileDir('Uebersicht.txt')
  else
    Label1.Caption:= Paramstr(0);

Hm, aber Paramstr(0) gibt mir auch den Dateinamen der Programm.exe aus und ich möchte nur den Pfad.

[Bummi]

lies nochmals #2 und #3 durch ...

[Codix32]

Ok, ich habs:

Delphi-Quellcode:

var
 str:string;
....
begin
if FileExists('Uebersicht.txt') then
begin
str:=Paramstr(0);
Label1.caption:=('Datei existiert')+'    '+ ExtractFileDir(str);
Listbox1.items.LoadFromFile('Uebersicht.txt');
end
else Label1.caption:='Datei existiert nicht';
end;

[Bummi]

Delphi-Quellcode:

var
  str: string;
begin
  str := ExtractFilePath(ParamStr(0)) + 'Uebersicht.txt';
  if FileExists(str) then
  begin
    Label1.caption := ('Datei existiert') + ' ' + str)
    Listbox1.items.LoadFromFile(str);
  end
  else Label1.caption := 'Datei existiert nicht';
end;

[cookie22]

Delphi-Quellcode:

str := ExtractFilePath(ParamStr(0)) + 'Uebersicht.txt';

[himitsu]

Zitat:

Zitat von Codix32 (Beitrag 1191718)

Ok, ich habs

Falsch.

Wie bereits genannt, solltest du unbedingt von relativen Pfaden Abstand nehmen, das bereitet eh nur Probleme.



Tipp:
Lege mal probehalber einen TOpenDialog auf deine Form und dann schreib

Delphi-Quellcode:

OpenDialog1.Execute;

an den Anfang deiner Prozedur. (vor das

Delphi-Quellcode:

if FileExists...

).
Nun startest du dein Programm und wählst in diesem Dialog z.B. irgendeine Datei in C:\Windows aus.
Und jetzt freu dich darüber, daß dein FileExist nichts mehr findet. :stupid:

Oder statt des Opendialog, erstellst du einen Link zu deinem Programm (auf'm Desktop rechtklick > Neu > Verknüpfung).
Wenn diese Existierst, gehst du davon in die Dateieigenschaften und schreibst bei "Ausführen in" das "C:\Windows" rein.
Nach dem Starten des Programms kannst du dich ebenfalls über das Nichtauffinden freuen.

[Perlsau]

Zitat:

Zitat von Codix32 (Beitrag 1191677)

Hallo und ich werde gleich mal schamhaft rot, aber:
Ich kann tatsächlich keinen Dateipfad im Label ausgeben, wenn die Datei im selben Ordner wie das Programm liegt.

Delphi-Quellcode:

Label1.caption:='.....' + ExtractRelativePath('Uebersicht.txt','');
{oder:}
Label1.caption:='.....' + ExtractFilePath('Uebersicht.txt');

Beide liefern nur das '.....' und einen Leerstring, aber keinen Pfad.
Welche Procedur oder Function gibt mir in diesem Fall den Pfad an?

Wenn dein Delphiprogramm die Datei Uebersicht.txt findet, dann ist das Zufall, weil dein Programmverzeichnis, in dem sich die Datei befindet, gerade ausgewählt ist. Dein Programm kennt aber nicht den vollständigen Dateinamen der Datei Uebersicht.txt, solange du dem Programm diesen nicht mitteilst. Dein Programm weiß also nicht von alleine, welche Dateien in welchen Ordnern stehen, das mußt du erst via Code ermitteln. Deshalb kannst du auch kein ExtractFilePath auf einen Dateinamen ohne Pfadangaben machen, denn diese Funktion soll ja den Pfad aus dem vollständigen Dateinamen extrahieren, und wenn da kein Pfad drin ist, dann heißt das Ergebnis Leerstring. Die Funktion ExtractFilePath hat nichts mit dem Windows-Dateisystem zu tun, sondern separiert einfach aus einem String eine bestimmte Struktur, völlig unabhängig davon, ob da irgendwo entsprechende Pfade oder Dateien existieren.

Na, Denkfehler erkannt?