产生随机数磁到的问题：我用调试程序时可以得到随机数，不调试时得到的是同一个随机数。。。。

Question

var
i,j:integer;
begin
edit1.Text:='';
for i:=1 to 5 do begin
  Randomize;
  j :=44+Random(40); //33+Random(40);
  edit1.Text:= edit1.Text+chr(j);
end;
end;

Answer 1

var
i,j:integer;
begin
edit1.Text:='';
Randomize;
for i:=1 to 5 do begin
  
  j :=44+Random(40); //33+Random(40);
  edit1.Text:= edit1.Text+chr(j);
end;
end;

Answer 2

var
i,j:integer;
begin
edit1.Text:='';
  //Randomize;
for i:=1 to 5 do begin
  Randomize;
  sleep(100); //***********************
  j :=44+Random(40); //33+Random(40);
  edit1.Text:= edit1.Text+chr(j);
end;
end;

Answer 3

现在没看Asc码表，
但是你能保证 从44（十进制）开始的40个字符都是可以显示的字符吗？
可能是不能显示的字符问题。
建议这样。var
i,j:integer;
begin
edit1.Text:='';
Randomize;
for i:=1 to 5 do begin
  //Randomize;
  j :=44+Random(40); //33+Random(40);
  edit1.Text:= edit1.Text+IntToStr(j)+',';
end;
end;

Answer 4

回复人：laiqinghe(每天散10分 不接分)