Wuerfelspiel Hilfe!!! :(

[Wolfgang Mix]

Markiere bitte Deinen Code und jkicke dann auf Delphi-Code.
Dann läßt sich das besser lesen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
i:integer;
j:integer;
h:integer;

begin
//Hier stimmte die Reihenfolge nicht
i:=random(6)+1;
j:=random(6)+1;
h:=random(6)+1;
i:=StrToInt(Edit1.Text);
j:=StrToInt(Edit2.Text);
h:=StrToInt(Edit3.Text);
Edit1.Text:=IntToStr(i);
Edit2.Text:=IntToStr(j);
Edit3.Text:=IntToStr(h);[pre]
[/pre]

end;

procedure TForm1.Button2Click(Sender: TObject);
var

Konto:integer;
begin
Konto:=StrToInt(Edit4.Text);
Konto:=Konto-1 ;
Edit4.Text:=IntToStr(Konto);

end;

Gruß

Wolfgang