PSafeArray可能是一个数组的指针我不知道PSafeArray是如何申明的,不过我可以给你一个
例子,或许你能得到一些启发:
Type
WordArrayP=^TWordArray;
TWordArray=array [0..0] of Word;Var
Lbuffer:WordArrayP; Lbuffer:=AllocMem(256*2); //分配256个word(2 bytes)值的内存...
for i:=0 to 255 do
Begin
Lbuffer^[i]:=Random($FFFF);
end;
...FreeMem(LBuffer);//释放内存
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货