文件名称：Delphi 判断文件是否是文本文件类型.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 11:35:35
Delphi源码-界面编程
Delphi 判断文件是否是文本文件类型，这个判断程序并不会打开文件，只是通过ExtractFileExt函数来读取扩展名，在窗体上制作一个按钮，将按钮事件添加到该按钮中，当用户单击按钮选择指定文件后，立即获取扩展名信息并判断是否是文本文件，以下为按钮事件代码： Ext := ExtractFileExt(OpenDialog1.FileName); Ext := UpperCase(Ext); if Ext='.TXT' then begin showmessage('是文本文件'); RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end else begin showmessage('不是文本文件'); RichEdit1.Lines.Clear; end; 按钮 事件代码绑定到该按钮的单击事件中，单击按钮后即执行程序。
【文件预览】：
codesc.net
----ExtractFileExt()
--------Unit1.dfm(1023B)
--------Unit1.ddp(51B)
--------Project2.dof(2KB)
--------Project2.res(876B)
--------Unit1.pas(938B)
--------Project2.cfg(461B)
--------Project2.dpr(188B)
--------Unit1.dcu(4KB)