一.Delphi的ActiveX控件编写注意事项.

   1.异常语句

  try
    FViews.Add(ATable);
    FDataStore.Add(TGRPGSPDataSource.Create(ATable.CreateView));

  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.CreateView));

  except
    on E: Exception do
      showmessage(E.Message);
  end;

也可以什么代码都没有,或者是一句正常的代码.

  try
    FViews.Add(ATable);
    FDataStore.Add(TGRPGSPDataSource.Create(ATable.CreateView));

  except
      showmessage('程序异常!');
  end;