一.Delphi的ActiveX控件编写注意事项.
1.异常语句
try
FViews.Add(ATable);
FDataStore.Add(TGRPGSPDataSource.Create(ATable.Cre ateView));
except
Raise Exception.Create('报表已经存在!');
end;
在except代码里不能使用 "Raise Exception.Create."这样的语句
不能在处理异常时,触发异常.
否则会在C#中使用会报出:
************** 异常文本 **************
System.Runtime.InteropServices.COMException (0x8000FFFF): 灾难性故障 (异常来自 HRESULT:0x8000FFFF (E_UNEXPECTED))
............
可以添加正常的代码.例如:
try
FViews.Add(ATable);
FDataStore.Add(TGRPGSPDataSource.Create(ATable.Cre ateView));
except
on E: Exception do
showmessage(E.Message);
end;
也可以什么代码都没有,或者是一句正常的代码.
try
FViews.Add(ATable);
FDataStore.Add(TGRPGSPDataSource.Create(ATable.Cre ateView));
except
showmessage('程序异常!');
end;