olevariant;绝配
比如
有
a:tstringlist;
o:olevariant;
var
i:integer;
begin
o:=vararraycreate([0,a.count-1],varvariant);
for i:=0 to a.count-1 do
o[i]:=a.strings[i];
end;
比如
有
a:tstringlist;
o:olevariant;
var
i:integer;
begin
o:=vararraycreate([0,a.count-1],varvariant);
for i:=0 to a.count-1 do
o[i]:=a.strings[i];
end;
好像可以直接操作的
a:tstringlist;
o:olevariant;
begin
o:=a;
end;