string zerlegen ('d:\test\test2\test3\test4') result:=test3

[marabu]

Mein Scherflein:

Delphi-Quellcode:

function ExtractParentDir(dir: string; noPath: boolean): string;
begin
  dir := ExtractFilePath(ExcludeTrailingBackslash(dir));
  if noPath
    then Result := ExtractFileName(ExcludeTrailingBackslash(dir))
    else Result := dir;
end;

Grüße vom marabu