从文件名中删除路径

Question

我正在开发一个程序,需要将文件名解析为TTextField.如何删除我已经知道的文件扩展名(或者认为我可以这样做):

var
  FName: String;
  FPath: String;

begin
  FPath := OpenDialog1.FileName;
  FName := ChangeFileExt(FPath, '');
end;

但是如何从中删除文件路径FName？

Answer 1

只需添加 ExtractFileName(FName);

Answer 2

看看SysUtils.ExtractFileName.我认为这就是你要找的东西.