16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.btn1Click(Sender: TObject);
var
i:int64;
x:array of int64;
intS:int64;
begin
i:=1000000000;
setlength(x,i); //此处报错
intS:=gettickcount;
Randomize;
i:=0;
while i<= high(x) do
begin
x[i]:=random(high(x)+1);
i:=i+1;
end;
intS:=gettickcount-ints;
lbl1.Caption:='用时'+inttostr(ints)+'毫秒';
end;