Inseln auf ein Image malen

[xZise]

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