Delphi eigenen Pointer unterbringen in TObject?

Thema durchsuchen

Ansicht

Themen-Optionen

eigenen Pointer unterbringen in TObject?

Ein Thema von stoxx · begonnen am 17. Feb 2009 · letzter Beitrag vom 17. Feb 2009

Vorheriger Beitrag

Nächster Beitrag

Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge

Turbo Delphi für Win32

Re: eigenen Pointer unterbringen in TObject?

17. Feb 2009, 17:56

Die VMT ist eine Tabelle für jede Klasse. Nicht für jedes Objekt. Jedes Objekt hat einen Zeiger auf die VMT seiner Klasse (damit arbeiten dann auch as und is); das sind genau die 4 Byte einer TObject-Instanz.

Um ein Feld nachträglich unterzubringen, musst du extern eine Tabelle (z.B. Hashmap) verwalten, die für jede Objektinstanz das Feld hält. Einen anderen Weg gibt es leider nicht. Dummerweise gibt es in Delphi keine Garbage Collection, weshalb das Freigeben des Platzes in der Tabelle schwierig ist. Am besten hookst du dazu TObject.FreeInstance, dort kannst du dann aufräumen.

Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."