打开文件失败的容错提示语句 try if OpenDialog1.Execute then begin MyList.Clear; MyList.LoadFromFile(OpenDialog1.FileName); end; except on E:EReadError do ShowMessage('打开文件失败'); end; //防止程序假死 Application.ProcessMessages; //删除记录时提示的语句 try with TADOQuery.Create(nil)…