在C语言中 

void initialize(int seed)
{srand(seed)}
time_t t;
initialize((unsigned)time(&t)); 

在delphi中第一句可以改成

procedure initialize(var seed: integer);
begin
    Randomize;
    Randseed:=seed;
end; 

那下面两句怎么写呢？

小丫123您好.. 其實Randomize;這個PROCEDURE..就是以時間的方式對亂數種子灑種了.. 所以不用其他的附加動作囉 randomize; //取時間當種子 a:=random(5); //產生0~4的亂數 =程式是一種藝術 也是訓練自己的分析規劃= =是段落分明 或是雜亂無章= =是一言以敝 或是廢話連篇= =是一目了然 或是艱深難懂= 體會這份藝術 您會了解另一份喜悅與成就 發表人 - geniustom 於 2004/11/08 16:59:11

補充： RandSeed 自己定義隨機亂數種子。 Randomize 取系統的時間作為亂數種子。 因此兩者只能二選一。