n:integer;
为了表示是哪行代码出现错误!
为了表示是哪行代码出现错误!
解决方案 »
- Delphi 如何从html 中提取纯文本
- 将excel文件中的内容写入数据库的问题
- 局域网里用ado连接sql的问题
- reportbuilder的问题,,急,20分给你啦
- 为什麽城管乐开怀?小贩的脑袋开血花。
- 如何取得stringGrid的当前选中的单元格 是那行那列的呢?
- 怎么用delphi写数据库备份的程序啊?
- 在dxdbgrid中把ShowSummaryFooter属性设置为true,为什么不会出现汇总数据?
- 请问怎么用DELPHI查IP
- 初学Delphi,请大家推荐书籍!谢谢
- 如何解决图片保存到数据库,读出来后会有部分失真的问题,这个问题困扰很久了,谢谢!
- asp+delphi搞電子商務?
if n=1 then exit
else if n=2 then Raise Ebadappend.Create('cuowu!');
就不会执行了!
delphi会直接转到except后的语句执行!
begin
openquery('select * from workonoff',true);
workid:=strtoint(edit2.text);
try
with query1 do
begin
append;
fields[0].asstring:=Edit1.text;
fields[1].asdatetime:=date;
try
Tblobfield(fields[workid+6]).loadfromfile(picpath);
except
Raise Ebadappend.Create('图片导入错误');
end;
post;
end;
except
on E:Ebadappend do
showmessage(e.message);
on E:Exception do
showmessage(e.message);
end;
//showmessage('cuowu');
query1.close;
end;