Delphi打开并判断文件是否是TXT文本文件，用户浏览打开一个文件，判断是否是TXT文件，若不是直接修改窗口标题文字进行提示： ifOpenDialog1.Executethen begin ifUpperCase(ExtractFileExt(OpenDialog1.FileName))='.TXT'then begin Caption:=ExtractFileName(OpenDialog1.FileName); Edit1.Text:=OpenDialog1.FileName; Memo1.Lines.LoadFromFile(OpenDi
