Hallo Hawkeye !
Danke erstmal für den Report!
Zitat von
Hawkeye219:
ein mehrdimensionales, dynamisches Array belegt keinen zusammenhängenden Speicherbereich. Das Löschen solltest du also besser so durchführen:
Delphi-Quellcode:
for y := 0 to High(PGrid^) do
for x := 0 to High(PGrid^[y]) do
PGrid^[x, y] := 0;
In der letzten Ebene (x) könntest du prinzipiell auch mit FillChar arbeiten.
Danke.... Wusste ich nicht! Aber daran wirds doch wohl kaum liegen oder
Zitat von
Hawkeye219:
In Zeile 63 ist wahrscheinlich der Endwert der y-Schleife falsch:
FOR y := AHeight - 2 DOWNTO 12 DO // 1 statt 12?
OOPs... ja da hast du recht
Zitat von
Hawkeye219:
Bei der Schleife zum Einfärben der Bitmap solltest du die Schleifenparameter prüfen. Der Zugriff auf PGrid^[AWidth, AHeight] dürfte ebenfalls zu einem Fehler führen. Eine einfache Verschiebung beider Laufvariablen um 1 führt allerdings zu Problemen im ELSE-Zweig.
Jo ^^ Da muss ich den Zugriff modifizieren (habe es da wohl vergessen).
Danke
Aber ich glaube kaum, dass es daran liegt...
MfG, xZise