Inseln auf ein Image malen

[Hawkeye219]

Zitat von xZise:

Aber daran wirds doch wohl kaum liegen oder?

Da bin ich anderer Meinung.

Delphi-Quellcode:

type
  TGrid = array of array of SmallInt;
var
  Grid : TGrid;
begin
  SetLength (Grid, 10, 20);
end;

Im obigen Beispiel ist Grid ein Zeiger auf ein Array mit 10 Zeigern auf jeweils ein Array mit 20 SmallInt-Elementen. In Wirklichkeit sind noch einige Verwaltungsdaten dabei, das tut aber nichts zur Sache. SizeOf(TGrid) wird immer den Wert 4 liefern - die Größe eines Zeigers.

Mit dem FillChar-Befehl in deinem Code löschst du nicht den Inhalt des Arrays, sondern einen Teil der Zeigerstruktur bzw. der Verwaltungsinformationen. Dies muß früher oder später zum Absturz führen.

Gruß Hawkeye