Problem mit dynamischem Array von Objekten

VD · Hält's aus hier Beiträge: 8

moin,

ich hab eine Klasse TTexObject, davon ein array

Delphi-Quelltext

1:
2:

TTexArray = array of TTexObject;
PTexArray = ^TTexArray;

jetzt liefert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var Texture : TTexObject;
    a : PTexArray;
begin
        getmem( a, 4 );
        texture := TTexobject.create;
        a^[ 0 ] := texture;
        freemem( a );
end;

eine zugriffsverletzung, und zwar genau dann wenn ich in das array was reingeschrieben hab und dann versuch den speicher freizugeben
ohne reinschreiben funzt das freigeben

frage, wie bekomm ich das problem weg, also den speicher freigegeben wenn ich das array nimmer brauch?

schonmal dank für jede hilfe

VD

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

raziel · Verfasst: Mo 09.08.04 18:57

Für den Pointer brauchst Du doch kein Speicher reservieren... :roll:

Du hast für das Array noch keinen Speicher reserviert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var Texture : TTexObject;
  a : PTexArray;
begin
  texture := TTexobject.create;
  SetLength(a^, 1);
  a^[ 0 ] := texture;
end;

_________________
JSXGraph

UC-Chewie · Beiträge: 531 WinXP D5 Ent

Ein dyn. Array ist bereits ein Zeiger! Deshalb erstell direkt eine Variable vom Typ deines Array-Typen.

_________________
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme