[请求]急！怎么取文件名？**

Looking

比如，我有个Opendialog控件，用FileName属性得到是全路径名，我只想要文件名，怎么实现？

yanyequan

NameSpace: Business.System    ClassDelcare: Business.System.FileSys
----------------------------------------------------------------------------
TFileUtils = class(TObject)
public
  constructor create;
  function AddExtName(AFileName: string; Extension: string): string;
  function AddPathSeparator(APath: string): string;
  function ChangeFileExt(AFileName: string; Extension: string): string;
  function ExcludeFilePrefix(AFileName: string; Prefix: string): string;
  function ExcludeFileServer(AFileName: string; Server: string): string;
  procedure ExpandFileList(AFileName: string; AFiles: TStrings);
  function ExpandFileName(ABasePath: string; ARelativeFileName: string): string;
  function ExtractRelativePath(ABasePath: string; AAbsFileName: string): string;
  function FileByOSFile(AOSFileName: string): string;
  procedure ForceDirectories(Dir: string);
  function GetDirectory(AFileName: string): string;
  function GetDriveName(AFileName: string): string;
  function GetFileExt(AFileName: string): string;
  function GetFileName(AFileName: string): string;
  function GetFileNameNoExt(AFileName: string): string;
  function GetFilePrefix(AFileName: string): string;
  function GetFileServer(AFileName: string): string;
  function GetFullFileID(AFileName: string): string;
  function GetPath(AFileName: string): string;
  function GetServerName(AFileName: string): string;
  function IsServer(AFileName: string): Boolean;
  function MakeFileName(ADirectory: string; AOnlyFileName: string): string;
  function OSFileByFile(AFileName: string): string;
  function PathIsUNC(Path: string): Boolean;
  function RemoveExtName(AFileName: string): string;
  function RemoveFilePrefix(AFileName: string): string;
  function RemovePathSeparator(APath: string): string;
  function ReplaceServer(AFileName: string; ANewServer: string): string;
  function ReplaceServerName(AFileName: string; ANewServerName: string): string;
  function SameServer(FileName1: string; FileName2: string): Boolean;
  function SplitFileExt(AFileName: string): string;
  function SplitFileName(AFileName: string; LeavePath: Boolean): string;
  function ValidPathSeparator(APath: string): Boolean;
  property PathDelim: Char; readonly;
  property ServerDelim: string; readonly;
  property SpaceDelim: Char; readonly;
end;