简单问题：如何读取文件的后缀，如有参数请说一下参数的说明，谢谢！

[yaoyaozhang]

目的是在读入某种文件时先验证一下是不是自己想读入的文件，避免出错。

[azhong]

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

[hellion]

function ExtractFileExt(const FileName: string): string;

[Carfield]

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

[xys]

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

[xys]

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

[CeleronII]

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