Path in seine Unter-Ordner zerlegen

[DeddyH]

Zitat von Bummi:

Wobei der Ansatz nicht optimal ist...

Delphi-Quellcode:

Function GetPolderPart(const s:String;Index:Integer):String;
var
 sl:TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Delimiter := '\';
    sl.DelimitedText := s;
    if Index < sl.Count then Result := sl[index ] else Result := '';
  finally
    sl.Free;
  end;
end;

AFAIK ist auch der Slash mittlerweile ein gültiger Trenner, und Du hast StrictDelimiter vergessen, sonst kommt bei Pfaden mit Leerzeichen ein falsches Ergebnis.