1。我看到有这样一个程序：

procedure initialize(seed:integer)
begin
  seed:=random(100);
end  

我觉得不太对我觉得应该是：

procedure initialize(seed:integer)
begin
  random(seed);
end  

不知道我这么想对不对 2。在C语言中，有这么一段程序

time_t t;
 initialize ((unsigned)time(&t)); 

不知道在delphi中应该怎么实现？ 恳请各大delphi高手指点!!!

Hi 小丫123,    

procedure TForm1.Button1Click(Sender: TObject);
var
  R : Integer;
begin
  Randomize;
  R := Random(100);
  Edit1.Text := IntToStr(R);
end;

Randomize procedure : Initializes the random number generator with a random value. Random function : Generates random numbers within a specified range. In Delphi code, Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range 0 <= X < 1. For more detail information, see Delphi help document. ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

randomize

小丫123 您好： Delphi中可透過RandSeed來設定。 procedure initialize(seed:integer) begin RandSeed := seed; //random(seed); end RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####