【文件属性】：
文件名称：Delphi 打开并判断文件是否是TXT文本文件.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 03:29:50
Delphi源码-文件操作
Delphi 打开并判断文件是否是TXT文本文件，用户浏览打开一个文件，判断是否是TXT文件，若不是直接修改窗口标题文字进行提示：
if OpenDialog1.Execute then
begin
if UpperCase(ExtractFileExt(OpenDialog1.FileName))='.TXT' then
begin
Caption := ExtractFileName(OpenDialog1.FileName);
Edit1.Text := OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end
else
begin
Caption := '此文件不是文本文件';
Memo1.Lines.Clear;
end;
end;
【文件预览】：
codesc.net
----txt()
--------Project1.res(876B)
--------Unit1.dcu(4KB)
--------Unit1.dfm(1KB)
--------Project1.cfg(461B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(944B)