Delphi-Quellcode:
procedure TForm1.zeige_Statistik (wert: Byte);
var i:Integer;
begin
i:= StrToInt(Gridstats.Cells[1,wert]); // hier kommt der "" ist kein Integer Wert Fehler
inc(i);
Gridstats.Cells[1,wert] := IntToStr(i);
end;
... ist auch logisch, da das Grid leer ist. Der Fehler hatte nix mit dem SpinEdit zu tun.
Anmerkungen:
- bei den SpinEdit für den Tipp Min und Max setzen. Oder gibts 6 aus 1200 ?
- Deine Ziehung hat 2 gleiche Zahlen gezogen.
- in Tippzahlen sind verkehrte Werte. 1. immer 0 dann die Tipps, der letzte fehlt. Liegt wahrscheinlich in den 2 Schleifen in Tipp_ok
alles in allem als Empfehlung:
- bringe das Funktionsdurcheinander in Ordnung nicht jeder Kram muß gleich, wenn nur einmal verwendet ausgelagert werden.
- male dir den Programmablauf mal auf Papier.