Records, Pointer, Listen & Co.

[tn249]

Sers,

ein Weg der vielleicht etwas umständlich ist, aber ganz gut geht ist folgender:

du definierst das was du als record definieren woltest als klasse ( zb. TMyData ) und definierst den TPoint und die 4 bools als felder der klasse.

jetzt kannst du eine TObjectList anlegen. dann erzeugst du deine TMyData klassen und fügst sie der ObjectList hinzu.

der trick dabei ist einen Wert der TobjectList, der sich OwnsObject oder so ähnlich nennt , auf true zu setzen, weil dann die objectlist beim löschen einzelner items oder vernichten der gesamten liste die vorher hinzugefügten object freigibt.


wie gesagt. evtl. ist das ein overkill aber es funktioniert.

Gruß
tn249