银
银雨辰
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 不可以直接调用吗?
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 不可以直接调用吗?