Verzeichnis aus Dateinamen extrahieren

[HeikoAdams]

Um den Namen des Verzeichnisses (ohne den restlichen Pfad), in dem eine Datei gespeichert ist, zu extrahieren, ist folgende Funktion nutzbar:

Delphi-Quellcode:

function GetFileDir(const aBasepath, aFilename: string): string;
begin
   Result := Copy(aFilename, Length(aBasepath) +1,
      PosEx('\', aFilename, Length(aBasepath) + 1) - Length(aBasepath));
end;