懂获得文件名的请进来拿分

Question

各位大虾，我通过TIlListBox.FileName可以获取文件的整个路径名，可是我只想获得文件名就可以了，不知道有没有这样的函数，在vc中是有的，GetFileName(),可是在DelPhi中不行，不知道DelPhi有没有函数可以解决

Answer 1

用extractfilename()函数,只有一个参数,就是你带路径的文件名,返回值为文件名.

Answer 2

Path := 'C:\Winnt\Explorer.exe';ExtractFileName(Path)              'Explorer.exe'
ExtractFilePath(Path)              'C:\Winnt\'
ExtractFileDir(Path)               'C:\Winnt'
ExtractFileDrive
ExtractFileExt

Answer 3

EXTRACTFILENAME（）;EXTRACTFILENAME（）;EXTRACTFILENAME（）;EXTRACTFILENAME（）;EXTRACTFILENAME（）;EXTRACTFILENAME（）;EXTRACTFILENAME（）;

Answer 4

function ExtractFileMainName(const FileName: string): string;
var
  p: Integer;
begin
  Result := FileName;
  p := Pos('.', Result);
  Delete(Result, p, Length(Result) - p + 1);
  p := Pos('\', Result);
  while p <> 0 do
  begin
    Delete(Result, 1, p);
    p := Pos('\', Result);
  end;
end;去掉文件名后缀

Answer 5

文件名:EXTRACTFILENAME(TIlListBox.FileName);
路径:EXTRACTFILEPATH(TIlListBox.FileName);