5,388
社区成员
发帖
与我相关
我的任务
分享
var
V: OleVariant;
I: Integer;
begin
V := VarArrayCreate([0,9],varOleStr );
if VarIsArray(V) then
//ShowMessage(IntToStr(VarArrayHighBound(V,1) - VarArrayLowBound(V,1) + 1));
for I := VarArrayLowBound(V,1) to VarArrayHighBound(V,1) do
begin
V[I] := IntToStr(I);
end;
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;