eigenen Pointer unterbringen in TObject?

[stoxx]

Hallo Profis,

gibts eine Möglichkeit, in der VMT oder so, für jedes TObject noch einen eigenen Pointer zu platzieren und unterzubekommen?
Ab TComponent gäbe es die Tag Property.
Gibt es vielleicht noch eine vesteckte Möglichkeit und freier Platz in TObject? vielleicht für unwichtige Features?

Eher nicht, oder?

 ShowMessage(InttoStr (obj.InstanceSize )); zeigt 4 Byte an, finde aber keine deklarierte Variable in den Sourcen von TObject

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[nuclearping]

Kannst du keinen Nachfahr erstellen, der die neue Property hat?

[stoxx]

naja, darum gings ja jetzt nicht. eine TStringrid kann man halt nicht mehr von diesem eigenem Typ ableiten ...

[Apollonius]

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.

[stoxx]

ok, gut .. danke Dir. Wollte nur wissen, ob eine zusätzliche Tabelle, in welcher Form auch immer, vermeidbar wäre ...
Danke Dir da ..

[sirius]

Zitat von stoxx:

ShowMessage(InttoStr (obj.InstanceSize ));
zeigt 4 Byte an, finde aber keine deklarierte Variable in den Sourcen von TObject

Das ist der Zeiger zur VMT.

Ansonsten verstehe ich nicht, was du vorhast. Wenn du in einem Stringgrid noch einen weiteren Pointer unterbingen wills, dann leite doch davon ab.

[mirage228]

Naja du kannst ja auch Objekte oder Records in die Tags (also die jeweilige Tag-Property) schreiben, darin kannst Du mehrere Pointer oder was auch immer packen. Dürfteste die sauberste Lösung sein...

Viele Grüße

[stoxx]

@ Sirius

es gänge darum, Funktionalität zu einem beliebigen Object hinzuzufügen. Eine Art Mehrfachvererbung zu realisieren.
Mehrfachvererbung bräuchte man ja meist nur zur Erweiterung von Objectfunktionalitäten.
Reine Funktionerweiterungen lassen sich mit dem Class Helpern super realisieren, wenn man jetzt aber noch eigene Daten unterbringen möchte, müsste man wirklich eine zweite Tabelle führen.

bräuchte es für dies hier ...

http://www.delphipraxis.net/internal...148&highlight=

@Apollonius


wie geht das mit dem Hooken von TObject.FreeInstance. Code hast Du nicht zufällig gleich parat, oder?

[Apollonius]

Ich denke, es ist einfacher, einen eigenen Speichermanager zu installieren und dann in FreeMem das Objekt aus der Tabelle zu nehmen. Dazu holst du dir mit GetMemoryManager(Ex) (das hängt von der Delphi-Version ab) den alten Speichermanager, ersetzt im Record den FreeMem-Zeiger und setzt das dann als neuen Speichermanager. In deinem eigenen FreeMem löschst du gegebenenfalls den Tabelleneintrag und rufst das alte FreeMem auf.

Das Hooken von TObject.FreeInstance mag zwar geringfügig schneller sein (da du beispielsweise nur Objekt-Freigaben mitbekommst und keine Feld-Wald-und-Wiesen-FreeMems), allerdings ist es auch erheblich unsauberer.

[stoxx]

Ich muss gestehen, dass der Hook auf FreeInstance mir besser gefällt ...

hab da was gefunden, bin mir aber nicht sicher, ob das das richtige ist?

http://www.kbasm.com/delphi-per-class-allocator.html