Zitat:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var zahl,i: integer;
begin
zahl:=strtoint(label1.Caption);
i:=random(5)+1;
if i = 1 then
zahl:=0
else
zahl:=zahl+i;
label1.Caption:=inttostr(zahl);
end;
ja, das haut hin, nur will ich, das die zahlen in einem weitern editfenster zusammengerechnet werden und die zahlen die gewürfelt werden, weiterhin so angezeigt erden