文件名称：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)