Bei einem String ab dem letztem \ alles löschen

[Antika]

Hallo!

Ich habe ein Problem! Nämlich ich habe einen Pfad (z.B C:\Programme\Dokumente und Einstellungen\BenutzerX) und ich will quasi ins übergeordnete Verzeichnis, also C:\Programme\Dokumente und Einstellungen. Das will ich bewerkstelligen indem ich ab dem letztem \ den Rest des Strings lösche.

Ich habe zwei bis drei Jahre Delphi Erfahrung, habe gesucht etc. und ich habe nichts gefunden ... Bitte um Hilfe.

PS: Ich brauche es für eine selbst geschriebene Konsole. Ich benutze Delphi 7

[Luckie]

ExtractFilePath

[Antika]

Klappt super vielen Dank!!

[-187-]

Allgemein, wenn es nicht gerade um einen Filepath geht dann kannst du die Funktionen LastDelimiter und Copy benutzen.

8-)

[Sir Rufo]

[Klugscheiß ON]

Code:

C:\blupp\trallala\

ist ein Pfad

Code:

C:\blupp\trallala

ist ein Verzeichnis
[Klugscheiß OFF]

Delphi-Quellcode:

MyDir := 'C:\blupp\trallala'; // Verzeichnis :o)
MyDir := ExpandFilename( IncludeTrailingPathDelimiterr( MyDir ) + '..' ); // ergibt C:\blupp

MyDir := 'C:\blupp\trallala';
MyDir := ExtractFilePath( MyDir ); // Achtung! ergibt C:\blupp\

MyDir := 'C:\blupp\trallala';
MyDir := ExtractFileDir( MyDir ); // ergibt C:\blupp

und jetzt das Fatale an der Sache

Delphi-Quellcode:

MyDir := 'C:\blupp\trallala\';
MyDir := ExtractFilePath( MyDir ); // Achtung! ergibt C:\blupp\trallala\

MyDir := 'C:\blupp\trallala\';
MyDir := ExtractFileDir( MyDir ); // Achtung! ergibt C:\blupp\trallala

[DeddyH]

Delphi-Quellcode:

Result := ExtractFileDir(ExcludeTrailingPathDelimiter(Eingabestring));

Damit sollte sowohl bei

Code:

C:\blupp\trallala\

als auch bei

Code:

C:\blupp\trallala

am Ende C:\blupp (ohne Backslash am Ende) herauskommen.
What is the problem? ;)