Code:
procedure TForm1.Button1Click(Sender: TObject);
var i,Zufallszahl,eingabe : integer;
begin
RANDOMIZE;
eingabe := strtoint (edit1.text);
for i:=1 to 10 do begin
Zufallszahl := Random(eingabe);
memo1.text := inttostr (Zufallszahl );
end;
ich will dass bei nem button klick 10 zufallszahlen untereinander in ein memo feld geschrieben werden, die obergrenze legt der benutzer durch eine eingabe fest.
Das funktioniert bis auf die 10 zahlen untereinander. 1 schreibt er immer hin aber keine 10,
was mach ich falsch
