Random-Frage

[Grishnak]

Noch eine kleine Änderung:

Zitat von Mavarik:

Delphi-Quellcode:

var letztezahl : integer;
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
{$IFDEF GANZSICHER}
   Count : integer;
{$ENDIF}
begin
  {$IFDEF GANZSICHER}
  Count := 0;
  {$ENDIF}
  repeat
    i := random(100);
    {$IFDEF GANZSICHER}
    inc(Count);
    {$ENDIF}

  Until (i <> letztezahl) {$IFDEF GANZSICHER} and (count < 1000) {$ENDIF};
  
  letztezahl := i;

  ShowMessage(IntToStr(i));
end;

begin
  randomize; // Zufallszahl-Generator initialisieren
  letztezahl := random(100); // nicht immer 0 als erste Zahl
end.

Frank