调用系统函数 VarArrayCreate 出错?(5分)

  • 主题发起人 主题发起人 银雨辰
  • 开始时间 开始时间

银雨辰

Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下:
function TMyData.GetDB(const Pwd: WideString): OleVariant;
var
I: Integer;
DBN: TStrings;
begin
// 返回客户机的所有数据列表
DBN := TstringList.Create;
try
Session1.GetDatabaseNames(DBN);
Result := VarArrayCreate([0,DBN.Count-1],varOleStr);
for I := 0 to DBN.Count - 1do
Result := DBN;
finally
DBN.Free;
end;
end;
编译错误提示:
[Error] MyData_Unit.pas(60): Undeclared identifier: 'VarArrayCreate'
VarArrayCreate 不可以直接调用吗?
 
要包含System单元,在Uses列表中加上system
 
我已经解决了!
不是加入system!
是加入SysUtils!
 
接受答案了.
 
后退
顶部