delphi的错误，帮忙看一下

答案:2 悬赏:10 手机版

解决时间 2021-12-19 08:56

提问者网友：我们很暧昧
2021-12-18 17:46

procedure Tfrmwjxz.btnwjxzClick(Sender: TObject); var FileHandle:integer;FileName:String;Filevar:TextFile; begin try with ADOQrywjxz do begin Close; SQL.Clear; SQL.Add('select ownerid,filename,document from documentmessage where ownerid= :oid'); Parameters.ParamByName('oid').Value := edtwjxz.Text; Open; self.SaveDilogwjxz.Filter:='文本文件|*.txt'; if SaveDilogwjxz.Execute then begin FileName:=SaveDilogwjxz.FileName; FileName:=FileName+' .txt'; if FileExists(FileName) then FileHandle:=FileCreate(pchar(FileName)); FileClose(FileHandle); AssignFile(Filevar,FileName); rewrite(Filevar); write(Filevar,self.ADOQrywjxz.FieldByName('document').Value ); closeFile(Filevar); showmessage('文件下载成功'); end; end except begin showmessage('文件下载失败'); end; end; end;

提示错误：project dazuoye.exe raised exception class EExternalException with message 'External exception C0000008'

最佳答案

五星知识达人网友：詩光轨車
2021-12-18 19:16

你这格式太混乱了，看着头疼。
你做个断点，然后F9调试运行下，看看是在哪一步出的错。

全部回答

1楼网友：掌灯师
2021-12-18 19:23

你那个s2 := '01234543' 后面没有; ，这样会导致编译出错，语句没有结束啊。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息