wert der variable wird vermindert ohne geändert zu werden

[dino]

hier komplettes Programm: exe erzeugen und bau der roten ameisen beobachten

[Sascha L]

Der Code ist ja mal krass, da blickt ja kein Mensch durch. Haste da eigentlich noch selbst den Überblick? Die Variable kann sich auf jeden Fall nicht von alleine ändern. Bei so einem Code ist es klar, dass man nicht so leicht herausbekommt, wieso und wo der Wert der Variable geändert wird.

[dino]

ich blicke durch und weiss, dass er schlimm ist aber ich hab nach bau[ gesucht und mir jedes mal angesehen, was passiert und die einzige stelle, an der irgendwas mit bau[ geändert wird ist am Anfang per zufall

[hoika]

Hallo,

ich habe keine Lust, deinen Fehler zu finden,
hast du das Programm mit allen Warnungen und vor allem Bereichsüberprüfung
kompiliert und laufen lassen ?

Der Fehler tritt vermutlich auf infolge einer Bereichsüberschreitung.
Ändere jetzt bloss nicht die Variablen-Reihenfolge!
Immerhin ist der Fehler reproduzierbar.

Falls ja,
kannst du nur noch folgendes tun,

1. Prüfe über Watch (Ctrl+F5) deine Variable.
2. Falls das nicht klappt (wegen der Timer)
marke dir die Variable (K) in einer anderen (K_Org)
Prüfe nach jeder Berechnung, ob K=K_Org

z.B. mit Assert(K=K_Org)

Die Asserts müssen natürlich in den Compiler-Optionen eingeschaltet sein.


Heiko

[dino]

werd ich machen sobald ich wieder zuhause bin und delphi hab

[Mandi Nice]

Hallöchen

Habe den Code runtergeladen und mal gestartet.
( Aber vorher die Bereichsprüfung und Überlaufprüfung eingeschaltet )
Es dauert keine Sekunden bis der erste Fehler kommt.

Daher unter Projekt - Optionen - Compiler
die Bereichsprüfung und Überlaufprüfung eingeschalten und dann den Fehler selbst suchen.
Sollte dann aber kein Problem mehr sein der Compiler bleibt ja in der Zeile stehen wo der Fehler ist.


hmg
Mandi

[Sunlight7]

Hallo Dino,

brutaler Programmierstiel :mrgreen: gefällt mir, aber nicht mein Fall :zwinker:

Delphi-Quellcode:

procedure TForm1.ibDblClick(...);
   var vo:Integer;
begin
   For vo:=1 to 4 do begin
      ...
   end;

   ges[vo]:=0; <- Fehler !!!
end;

procedure TForm1.ibDblClick(...);
   var vo, vos:Integer;
begin
   For vo:=1 to 4 do begin
      ...
      vos:=vo;
   end;

   ges[vos]:=0; <- Kein Fehler
end;

PS: Real's sind Out, nimm dafür Single oder Extended

Edit: Anderswo machst Du den gleichen Fehler mit dem Bau.

[Sunlight7]

Ist Dir eigentlich der Crash nicht aufgefallen, wenn Du den A, B und Cmeisen eine Zeit lang zusiehst?

Edit: Hoppla, falscher Knopf Antworten statt Edit...

[dino]

ach stimmt wir haben schon vorher das Problem gehabt, dass Völker plötzlich unmengen an Futter haben

[dino]

ich kann aber nicht finden, wo ich den Fahler mit den Bau mache, aber ich geb noch nicht auf, meld mich dann, wenn ich wieder ein Problem habe