H
hying95
Unregistered / Unconfirmed
GUEST, unregistred user!
随机数问韪!分数100分在这里(http://www.delphibbs.com/delphibbs/dispq.asp?lid=3625982) ( 积分: 0 )<br />代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
K: Array [1..160] of integer;
NumCount: integer;
begin
memo1.Clear;
for i := 1 to 160 do
K := i;
NumCount := 49;
Randomize;
while memo1.Lines.Count<7 do
begin
j:= random(NumCount);
if length(inttostr(K[j]))>2 then
continue;//如果没有这句会出现大于49（13972792）；为什么会出现这种情况？
memo1.Lines.Add(inttostr(K[j]));
K[j] := K[NumCount-1];
NumCount := NumCount-1;
end;
end;
为什么会出现大于49的情况（都是13972792）？
第二，连续按这个按纽会出如下错误，运行终止！
工程Project2.exe检测到错误类EAccessViolation错误信息：存取地址00403E94，违例了发生在模块Project2.exe中，读 在地址00000028里，进程中止。
procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
K: Array [1..160] of integer;
NumCount: integer;
begin
memo1.Clear;
for i := 1 to 160 do
K := i;
NumCount := 49;
Randomize;
while memo1.Lines.Count<7 do
begin
j:= random(NumCount);
if length(inttostr(K[j]))>2 then
continue;//如果没有这句会出现大于49（13972792）；为什么会出现这种情况？
memo1.Lines.Add(inttostr(K[j]));
K[j] := K[NumCount-1];
NumCount := NumCount-1;
end;
end;
为什么会出现大于49的情况（都是13972792）？
第二，连续按这个按纽会出如下错误，运行终止！
工程Project2.exe检测到错误类EAccessViolation错误信息：存取地址00403E94，违例了发生在模块Project2.exe中，读 在地址00000028里，进程中止。