Thema: Delphi zufallszahlen

Einzelnen Beitrag anzeigen

Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: zufallszahlen

  Alt 10. Apr 2004, 15:42
Zitat von Luckie:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
 Loop: Cardinal;
begin
  for Loop := 0 to 31 do
    Listbox1.Items.Add(IntToStr(Random(31)));
end;
Wo ist jetzt das Problem?
Eigentlich "Random(32)", da ja "0 <= X < (NICHT <=) Range".
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat