ExtractFileExt(const FileName: string): string;
FileName就是你要读入的文件名。

解决方案 »

  1.   

    function ExtractFileExt(const FileName: string): string;
      

  2.   

    function ExtractFileExt(const FileName: string): string;
    FileName为所需文件名
      

  3.   

    dir:=ExtractFilePath(Paramstr(0));
    dir即为你的程序所在目录
    filename:=ExtractFileExt(const FileName: string);
    filename即为你的文件名。
      

  4.   

    dir:=ExtractFilePath(Paramstr(0));
    dir即为你的程序所在目录
    ext:=ExtractFileExt(const FileName: string);
    ext即为你的文件扩展名。
      

  5.   

    ExtractFileExt(Const Filename ;string) :string;
    FileName是你的传入的文件名,返回扩展名