Function GetDeepestDir(const aFilename:string):string;
begin
Result := extractFileName(ExtractFilePath(afilename));
end;
function GetDeepestDir(const aDir : string) : string;
var Directory : string;
Index : integer;
begin
Directory := ExtractFileDir(aDir);
for index := length(Directory) downto 1 do
begin
if Directory[index] = '\' then
break;
end;
if index > 1 then
result := copy(Directory,index,(length(Directory) - index))
else
result := '';
end;
This is nice and this is dirty:var slDir : TStringlist;
begin
slDir := TStringlist.create;
try
Directory := ExtractFileDir(aDir);
sldir.Delimiter := '\';
slDir.strctdelimited := true;
slDir.delimitedtext := ExtractFileDir(aDir);;
if sldir.count > 0 then
result := slDir(sldir.count - 1)
else
result := '';
finally
slDir.free;
end;
end;
Code: [Select]Function GetDeepestDir(const aFilename:string):string;
begin
Result := extractFileName(ExtractFilePath(afilename));
end;
Function GetDeepestDir(const aFilename:string):string;
begin
Result := extractFileName(ExtractFileDir(afilename));
end;