產生亂數的函數 AnsiString Rand16() { randomize(); int index=rand(); AnsiString array[16]={0,1,2,3,4,5,6,7,8,9,'A','B','C','D','E','F'}; return array[index]; } //---------------------------------- Edit1->Text=Rand16() Rand16() Rand16(); 出來的值會是BBB,333,888,呼叫三次函數出來的亂數值都一樣 可是我想要的是B38...469...039 每次呼叫函數出來的值都不一樣 而且我希望下次再執行這程式的時候出來的值， 不再等於上次的亂數(B38,469,039)...也就是可能出現D75,C29,5A2,...等再次新的亂數 我是BCB的新手.. 請問各位大大要怎麼寫?謝謝

Hello wolfmiller,    把randomize()放到FormCreate()

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  randomize();
  Edit1->Text=rand16() rand16() rand16();
}    AnsiString TForm1::rand16(void)
{
  int a;
  AnsiString v[16]={'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'};
  a=random(16);
  return v[a];
}

發表人 - nlj859 於 2005/01/09 15:44:09

謝謝大大 我知道了^^