Directory List Box - gewählten Eintrag auslesen

[DeddyH]

Ob es da bereits eine fertige Funktion gibt, weiß ich gerade nicht, aber Du kannst es mal damit versuchen:

Delphi-Quellcode:

function LastDir(const sPath: string): string;
var temp: string;
    i: integer;
begin
  Result := '';
  temp := sPath;
  if temp[Length(temp)] in ['\','/'] then
    Delete(temp,Length(temp),1);
  i := Length(temp);
  while (i > 0) and not(temp[i] in ['\','/']) do
    begin
      Result := temp[i] + Result;
      dec(i);
    end;
end;