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;