使用CreateOleObject的问题,在线等待.....

Question

使用需要在单元头怎么定义?
显示错误信息:
  undeclared identifier.代码:
var
  i:Integer;
  ovNames,ovSQLApp:OleVariant;
begin
  ovSQLApp:=CreateOleObject('SQLDMO.Application');
  ovNames:=ovSQLApp.ListAvailableSQLServers;
  ComBoBox1.Items.Clear;
  for i := 1 to ovNames.Count do
  begin
    ComBoBox1.Items.Add (ovNames.Item(i));
  end;
end;
问题解决马上结帖!谢谢!

Answer 1

Unit
ComObjfunction CreateOleObject(const ClassName: string): IDispatch;