Bei einem String ab dem letztem \ alles löschen

[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