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;
