Path in seine Unter-Ordner zerlegen

[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;