Der Code zum Button Click sieht jetzt so aus:
Delphi-Quellcode:
procedure TForm1.btntriple7Click(Sender: TObject);
begin
if rbspieler1.Checked = true then
begin
lblpunktestand1.Caption:=inttostr(strtoint(lblpunktestand1.Caption) - triple7);
lblwuerfe1.Caption := inttostr(strtoint(lblwuerfe1.Caption) + wurf);
end;
if rbspieler2.Checked = true then
begin
lblpunktestand2.Caption := inttostr(strtoint(lblpunktestand2.Caption) - triple7);
lblwuerfe2.Caption := inttostr(strtoint(lblwuerfe2.Caption) + wurf);
end;
end;
@Sir Rufo: Der Computer rastet total aus wenn ich das runterladen will. Spam, Mail, Virus - alles dabei in der Warnung. Schaue es mir Zuhause mal an.