suche Funktion FindLastDir

[bluescreen25]

Zitat von Nuclear-Ping:

http://dsdt.info/tipps/?id=134

Danke, aber eigendlich wollte ich nicht alle Files oder Dirs in Stringlisten verwalten, lediglich die Rückgabe der tiefsten Ebene eines Pfades.

Dachte eher an sowas nur umgekehrt...:

Delphi-Quellcode:

function GetAudioplayerDirectory(const APath: String): String;
var
  i: Integer;
begin
  Result:=APath;
  i:=Length(APath);
  If i>3 Then
  Begin
    Repeat
      Dec(i);
    Until (APath[i] = '\') OR (i=1);
    If APath[i]='\' Then
      Result:=Copy(APath,1,i);
  End
end;