delphi中try的用法1

2016-11-09 16:25:54来源:http://smiledesky1.blog.51cto.com/9662820/1870679作者:smiledesky1人点击


try...except..end;查询异常

try

edHH.Visible := False;

ListBox.Visible := not edHH.Visible;

listBox.Clear;

I := 0;

while not Eof do

begin

SendToExeLog('H11');

listBox.Items.Add(IntToStr(ZSBID) + ' ' + ZNAME);

setlength(myPP, i + 1);

myPP[I].myInx := (ZBASEID);

inc(I);

end;

RgBox.Caption := '请选择品牌';

ListBox.SetFocus();

except

on E: Exception do

begin

DataMain.sLastError := e.Message;

SendToExeLog(e.Message);//返回错误原因到日志中

end;

end;


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台