Delphi 判断文件是否是文本文件类型.rar

Delphi判断文件是否是文本文件类型，这个判断程序并不会打开文件，只是通过ExtractFileExt函数来读取扩展名，在窗体上制作一个按钮，将按钮事件添加到该按钮中，当用户单击按钮选择指定文件后，立即获取扩展名信息并判断是否是文本文件，以下为按钮事件代码： 　　Ext:=ExtractFileExt(OpenDialog1.FileName); 　　Ext:=UpperCase(Ext); 　　ifExt='.TXT'then 　　begin 　　showmessage('是文本文件'); 　　RichEdit1.Lines.LoadFromFile(Open