function TAutoCls.SetArray(iMode: Integer; vAry: OleVariant): WideString;
var
i,j:Integer ;
s:string;
begin
case iMode of
2: //二维
begin
for I:=VarArrayLowBound(vAry, 1) to VarArrayHighBound(vAry, 1) do
begin
for j:=VarArrayLowBound(vAry, 2) to VarArrayHighBound(vAry, 2) do
begin
S:=S + IntToStr(i) +'-' + IntToStr(j)+ '=' + VarToStr(vAry[I,j]) + ',';
end;
s:=s +#13#10;
end;
end;
else //一维
begin
for I:=VarArrayLowBound(vAry, 1) to VarArrayHighBound(vAry, 1) do
begin
S:=S + VarToStr(vAry[I]) + ',';
end;
end;
end;
// showmessage(s );
result:= ' iMode=' + IntToStr(iMode) + '=' + s ;
end;
function TAutoCls.GetArray: OleVariant;
var i:integer;
begin
Result:=VarArrayCreate([0,9],varVariant); //一维
for i:=0 to 9 do
Result[i]:='array'+ inttostr(i)
end;