在编写的Com组件中如何抛出异常!(20分)

  • 主题发起人 主题发起人 SupperDog
  • 开始时间 开始时间
我以函数形式调用,捕获错误后,返回错误码,调用者根据错误码进行提示。
 
给个例只好吗?多谢
 
返回错误码
或误码接口
 
但是语句怎样写
用raise吗?
 
catch后返回一个参数不就行了吗,把错误信息附上。
 
SERVER:
function integer myfun(parm:type);
begin
try
result=-1;
something...
except
result=0;
end;
end;

client:
tform1.btclick(sender:tobject);
begin
if dcomconection1.appserver.myfun(vlu:type)>0 then
rais exception.create('error!');
end;
 
后退
顶部