SpinEdit Fehler: Kein gültiger Integewert

[mkinzler]

Zitat:

Dann brauchst Du auch nicht auf if Ausdruck = True then ... prüfen.

Man sollte es auch nicht

[JadeFox]

danke
hm ich dachte man könnte eunfach auch den namen der funktion nehmen statt result.
meinst du es dann so:

Delphi-Quellcode:

      
  function neu (Gew: TLottofeld; bisher, wert: Byte): Boolean;
   var bool: boolean;j: Byte;
    begin
      bool:=false;
      for j:=bisher downto 1 do
       begin
        if Gew[j] <> wert then
        bool:=true;
        result:=bool;
       end;
    end;

[mkinzler]

Man kann auch den Funktionsnamen nehmen oder Result := True;

[haentschman]

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.

[stahli]

Oh ja, sorry
Das "neu" habe ich übersehen.

Aber an der Stelle ging es bei mir nicht weiter.
Offenbar wurde die Bedingung nicht erfüllt und die repeat-Schleife daher nicht verlassen.
Vielleicht musst Du Dir die dortige Logik nochmal anschauen.

Ein Problem mit dem SpinEdit habe ich übrigens nicht festgestellt.

[JadeFox]

hm stimmt es knnte irgednwie an
 if Tipp_ok(Tippzahlen) = true then aber wenn der fehler bei der Prozedur zeige_Statistik liegt, warum werden dann die Prozeduren davor auch nciht ausgeführt?

Nein das lag am Sortieren, dass habe ich aber bereits behoben.

[haentschman]

Zitat:

warum werden dann die Prozeduren davor auch nciht ausgeführt?

...die werden ausgeführt. Einmal, bis es in Zeige_Statistik kracht.

Delphi-Quellcode:

bestimme_Gewinnzahlen(Gew, zZahl); // wird ausgeführt
zeige_Gew(Gew, zZahl); // wird ausgeführt
zeige_Statistik(Rang(Tippzahlen, Gew, zZahl)); // kracht wegen leerem Grid + Tippzahlen falsch

Anmerkung: Debuggen mußt du üben, damit du dich selbst (dein Programm) an jeder Stelle prüfen kannst

[mkinzler]

Wie geschrieben, sollte es if Tipp_ok(Tippzahlen) then lauten

[JadeFox]

und dann wird gleich davon ausgegangen das Tipp_ok(Tippzahlen) true ist?
das ist ja gut, danke.

ich üb mich ja schon, ich hab den debugger nur falsche gesetzt, aber du hast recht es liegt an der Statistik Prozedur, wenn ich sie ausklammer läuft das Programm.
Weiß jemand was mit der Fehlermeldung dann genau gemeint ist?

[haentschman]

ein Leerzeichen bzw. kein Zeichen (weil dein Grid leer ist), was du aus der Zelle holst willst du mit StrToInt umwandeln. Boing...

Zitat:

ich üb mich ja schon, ich hab den debugger nur falsche gesetzt

dann setzt man in jede Zeile, wo man denkt daß der Fehler da liegt, einen Breakpoint und steppt mit F9 durch. Da siehst du genau in welcher Procedure es kracht. Dann nimmt man sich die entsprechende Procedure nach selben Schema vor. Dann hast du die Zeile.