Z
zzgwj
Unregistered / Unconfirmed
GUEST, unregistred user!
用VB编写了一个DLL后，在DELPHI中将其加载为控件后，调用她的函数。
函数的参数是PSafeArray类型，在VB中是Single型的数组。应该怎样给PSafeArray型赋值
我是这样写的
var
a
SafeArray;
sa:array [0..200] of single;
begin
sa:=i;//给sa数组赋值
a^.pvData:=@sa;
class11.test(a);//test是控件的函数
end;
运行时出现‘subscript out of range’的错误。
函数的参数是PSafeArray类型，在VB中是Single型的数组。应该怎样给PSafeArray型赋值
我是这样写的
var
a
SafeArray;sa:array [0..200] of single;
begin
sa:=i;//给sa数组赋值
a^.pvData:=@sa;
class11.test(a);//test是控件的函数
end;
运行时出现‘subscript out of range’的错误。