比如我有個button，我想是每按一次所randomize出來的數字和上一次所randomize出來也不一樣，我寫了以下一段碼，但不知那裡出錯，煩請高手指點。 var i,j:integer; begin i:=j; repeat if (i = j) then randomize; i:=random(4); until (i <> j); end;

Hi turbocks,    1.定義一個全域變數 PreviousValue 儲存上一個號碼    2.FormCreate 時將 PreviousValue 初始化

procedure TForm1.FormCreate(Sender: TObject);
begin
  PreviousValue := -1;
end;

3.Button.OnClick 程式修改如下

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  J := PreviousValue;
  i:=j;
  repeat
    if (i = j) then
      begin
        randomize;
        i:=random(4);
      end;
  until (i <> j);
  PreviousValue := i;
end;    或是簡化為
procedure TForm1.Button2Click(Sender: TObject);
var
  R : Integer;
begin
  R := PreviousValue;
  while R = PreviousValue do
    begin
      Randomize;
      R:=Random(4);
    end;
  PreviousValue := R;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Randomize程式執行時只要執行一次就可以了.