数据赋值出现问题(50分)

  • 主题发起人 主题发起人 landina
  • 开始时间 开始时间
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;处不能通过编译,请问为什么?
 
数据类型不匹配啊.
 
卷兄果然手明眼快
 
OleVariant mismatch rPop
 
大家提点建议,我应该如何改?

我返回的值不是rPop,而是rPop的数组啊
 
如果数据类型确定的数组没有必要用variant类型,
这种类型也只能表现delphi的内在类型.
自己创建的记录类型当然不能接受了,只能用用别的方法了!
 
以下程序能编译通过!!!不知正确否?
type
rPop = package record
a0:widestring;
a1:widestring;
end;
procedure get(out e:OleVariant);
var
k:rPop;
y :array of rPop;
begin
y := vararraycreate([0,10],varvariant);
y[0] := k;
e :=y;
end;
 
经过测试,以上的方法不正确。
 
后退
顶部