L
landina
Unregistered / Unconfirmed
GUEST, unregistred user!
type
rPop = package record
a0:widestring;
a1:widestring;
end;
procedure get(out e:OleVariant);
var
k:rPop;
begin
e := vararraycreate([0,10],varvariant);
e[0] := k;
end;
在e[0] := k;处不能通过编译,请问为什么?
rPop = package record
a0:widestring;
a1:widestring;
end;
procedure get(out e:OleVariant);
var
k:rPop;
begin
e := vararraycreate([0,10],varvariant);
e[0] := k;
end;
在e[0] := k;处不能通过编译,请问为什么?