笨方法
var
loop: Integer;
begin
aa := VarArrayCreate([0,12],varInteger);
for loop := 0 to 12 do
aa[loop] := grp1[loop];
end;
var
loop: Integer;
begin
aa := VarArrayCreate([0,12],varInteger);
for loop := 0 to 12 do
aa[loop] := grp1[loop];
end;
调试欢乐多
StrPCopy(aa,@grp1)
如果不行看StrPas函数