random()

[Dr4ke]

Ahh tricky Danke .. Aber ich hab noch ein Problem und möchte nicht gleich nen neuen Thread aufmachen.

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var
ergebnis : integer;
begin
Addieren;
ergebnis := StrToInt(edtAnzahl.Text) + Addieren;
edtAnzahl.Text := IntToStr(ergebnis);
end;

function TForm1.Addieren : integer;
begin
Addieren := random(6)+1;
end;

Sollte recht verständlich sein .. Beim Button-klick wird eine Zufallszahl zwischen 1 und 6 generiert und zum Wert im Textfeld hinzugezählt. Jedoch erhalte beim Klick folgende Fehlermeldung:

" ist kein gültiger Integerwert.
Woran könnte das liegen?