will randomzahlen aufaddieren

[Fedebolix]

so, jetzt habe iches geschaft!!!!!!!!

dank an alle

Delphi-Quellcode:

  var zahl,i: integer;
begin

zahl:=strtoint(edit2.text);

 randomize;
 i:=random(6)+1;
 edit1.Text:=inttostr(i);
  if i = 1 then
    zahl:=0
else
  zahl:=zahl+i;
edit2.text:=inttostr(zahl);