Zufallsprinzip bei einem kleinen Spiel

[DeddyH]

Fast richtig . Randomize sollte einmalig aufgerufen werden. Also könnte das Ganze dann so aussehen:

Delphi-Quellcode:

procedure TDeinForm.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TDeinForm.btnErmittelnClick(Sender: TObject);
begin
  case Random(3) of
    0: lblZug.Caption := 'Schere';
    1: lblZug.Caption := 'Stein';
    2: lblZug.Caption := 'Papier';
  end;
end;

P.S.: Willkommen in der DP, Elko