delphi - 从文件名中删除路径

Question

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

var
  FName: String;
  FPath: String;

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

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

Answer 1

只需添加ExtractFileName(FName);