Verzeichnis aus Dateinamen extrahieren

[Satty67]

Man muss folgendes übergeben:

C:\meineApplikation\
C:\meineApplikation\meineDaten\meineDatei.txt

um dann meineDaten zu bekommen?

Mein Vorschlag, da ich kein PosEx habe:

Delphi-Quellcode:

function GetFileDir(const aBasepath, aFilename: string): string;
begin
  Result := ExtractFilePath(aFileName);
  Delete(Result, 1, Length(aBasePath));
end;

ExcludeTrailingBackslash, falls man D5 hat und den Backslash nicht will

@eddyH
Wenn mehr als ein Ordner-Zweig zw. aBasepath und aFilename liegt, wird das nix.