VB中的跳出过程EXIT SUB,跳出函数EXIT FUNCTION ,
结束程序END,这些功能在DELPHI里面有没有,有的话请给出语句。
还有ON ERROR RESUME NEXT和ON ERROR GOTO 在DELPHI中有没有类似的语句?
结束程序END,这些功能在DELPHI里面有没有,有的话请给出语句。
还有ON ERROR RESUME NEXT和ON ERROR GOTO 在DELPHI中有没有类似的语句?
也有end。。但比较和BEGIN配对
至于错误方面。DELPHI是面向对象的。。用的是TRYFINALLY
procedure Tclientform.suiButton1Click(Sender: TObject);
var bmp1:TBitmap;
jpg1:TJpegImage;
begin
clientdm.OpenPictureDialog1.DefaultExt:=GraphicExtension(TJpegimage);
if clientdm.OpenPictureDialog1.Execute then
begin
bmp1:=TBitmap.Create;
jpg1:=TJpegImage.Create;
try
jpg1.LoadFromFile(clientdm.OpenPictureDialog1.FileName);
bmp1.Assign(jpg1);
suidbImage1.Picture.Bitmap.Assign(bmp1);
finally
jpg1.Free;
bmp1.Free;
end;
end;
end;
至于错误处理方面DELPHI和JAVA、C#相似。。用的是TRYFINALLY
异常处理:try...except...end
一般很少用goto
如果是这样的话,那么A和B相互调用该怎么办。
Exit 跳出过程或函数并返回到调用处
Abort 终止过程或函数,不返回调用处
try
except
出错后执行代码,还可以根据错误类型选择招待代码 On E: Exception do ....
end;
Form1: TForm1;
function A(..):String //声明一下就行了
function B(..):String //声明一下就行了implementation
还有一个问题:同一UNIT中A函数中调用B函数,那么B必须写在A的上面吗(否则的话编译不成功)?
如果是这样的话,那么A和B相互调用该怎么办。
===========================================
delphi与C不一样,在同一单元中不同函数没有先后顺序
FINALLY
//无论有没有出错,都要执行
ENDTRY
EXCEPT
//出错后才执行
END
... ...
a:=power(-1,0.5)
... ...
except
end;出错后说‘无效的浮点值指针操作’,然后中断。
怎么样才能像ON ERROR RESUME NEXT一样的忽略错误呢?
... ...
a:=power(-1,0.5)
... ...
except
end;
就行了
在IDE中运行会报错误,脱离后不会报错误的, on error resume next 只能用这种方式处理
... ...
a:=power(-1,0.5)
... ...
except
end;
就行了
在IDE中运行会报错误,脱离后不会报错误的, on error resume next 只能用这种方式处理
==================================================================================
我想要的是发生错误后忽略,继续执行下一句,而不是结束过程;
而且上述代码发生错误并结束过程后,错误消息还在,当返回到调用该过程的过程后,还是出错。
这怎么回事啊?
try
......
except
end;