Tipps und Ratschläge für Spiel & für effizientes Programmieren

[Danny92]

Jetzt habe ich das Schiffe versenken soweit fertig gestellt und stelle es euch hier zur Verfügung. Ich bin für jeden Tipp, Verbesserungsvorschlag, konstruktive Kritik oder neuen Einfall jederzeit dankbar. Schlussendlich geht es mir neben der Kritik nun nur noch darum, etwas an Performance rauszuholen, denn bei aktivem Spielen mit der KI läuft meine - wenn auch nicht gerade schnellste - CPU immerhin schon bei ca. 33%. Ist das eurer Meinung nach normal bei einem Programm diesem Formats? Oder ist das schlichtweg "schlecht" programmiert? Wie sieht eure CPU-Auslastung aus? Denn bis jetzt konnte ich nicht erkennen woran das liegt, da ich mit effizientem Programmieren noch nicht so vertraut bin bzw. es selten das Problem war. Das Neuzeichnen der StringGrids oder das Vorausberechnen des nächsten Schusses der KI scheint es schon mal nicht zu sein.
Vielen Dank für eure kompetente Hilfe!

PS: Da das Programm wegen der Resource zu groß ist, muss es hier verlinkt werden. Minen sind noch nicht implementiert.

[Danny92]

Ok ich habe den Fehler gefunden^^

[HolgerX]

Hmm..

Zitat von Danny92:

Ok ich habe den Fehler gefunden^^

Und was war es?

[Danny92]

Der Case-Zweig in SetzeFlotte musste wie folgt abgeändert werden:

Delphi-Quellcode:

            case k of
            0: if a.Y >= i then
                 b := Point(a.X, a.Y - i + 1)
                else
                  richtungProbiert[0]:=True;
            1: if a.Y + i - 1 <= feldgroesse then
                 b := Point(a.X, a.Y + i - 1)
               else
                 richtungProbiert[1]:=True;
            2: if a.X >= i then
                 b := Point(a.X - i + 1, a.Y)
               else
                 richtungProbiert[2]:=True;
            3: if a.X + i - 1 <= feldgroesse then
                 b := Point(a.X + i - 1, a.Y)
               else
                 richtungProbiert[3] := True;
            else

            end;

[Delphi-Laie]

Zitat von himitsu:

Zitat von Delphi-Laie:

Edit: Ein "automatisches" Randomize ist ein zweischneidiges Schwert. Wie will man "vernünftig", "produktiv" debuggen, wenn man keine reproduzierbaren Ergebnisse erhält?

Nicht mit Zufalls werten arbeiten, oder vorher den Test "ordentlich" initialisieren (RandSeed), wenn es nötig ist.

Das mit der Automatik wurde nicht gleich zu beginn eingebaut.
Dachte bei D7 ist es schon da, aber spätestens mit XE ist es so.

Nein, und auch bei Turbo-Delphi (das wohl intern einem Delphi 2006 entsprechen dürfte) gibt es noch kein "automatisches" Randomize.