Zufallszahl von 1-6 100mal anzeigen lassen

[Klaus01]

Zitat von DelFreak:

Delphi-Quellcode:

//Zahlen: Array [1..100] of String;
zahlen : Byte;
// im Form.create randomize aufrufen  //<--- wichtig

procedure TForm4.Button1Click(Sender: TObject);
begin
  //Ich glaube aber auch nicht wenn es klappen würde Array u. Integer passt nicht zusammen :( 
 //glaube ich nicht das das Prog mir auch nur eine Zahl anzeigen würde !
zahlen := 1;
while Zahlen  < 100 do 
  begin
   //random (6) + 1 
    memo1.lines.add(IntToStr(random(6)+1));
    inc(zahlen);
  end;

Habe in Deinem Code mal etwas geändert.
Grüße
Klaus