如何取得完整路径的最后一个目录名称

Question

比如说我得到一个完整的路径 D:\delphi\lib，现在我只想取得lib这个文件名，前面的D:\delphi不要，该如何去做？

Answer 1

用pos找到最后一个‘\’，然后copy

Answer 2

  s:='D:\delphi\lib';
  str:=TstringList.Create;
  str.Clear;
  extractstrings(['\'],[],pchar(s),str);
  i:=str.count;
  if i=0 then
    exit;
  s:=str.strings[i-1];//就是这个了

Answer 3

var
  dir: string;
begin
  dir := 'D:\delphi\lib';
  dir := ExtractFileName(dir);
  ShowMessage(dir);
end;

Answer 4

不用那么麻烦ExtractFileName完全可以搞定