Über Pointer den Klassennamen bekommen?

[moelski]

Moin !

Ich habe ein TreeView in dem ich Nodes einhänge und mehrere Klassen.
Jedes Node des Tree repräsentiert quasi eine Klasseninstanz.

Nun habe ich dem Node.Data jeweils einen Pointer auf die Klasse mitgegeben.
Bsp :

Delphi-Quellcode:

ClassA := TMyClassA.Create;
Node1.data := ClassA;
ClassB := TMyClassB.Create;
Node2.data := ClassB;

Aber wie kann ich nun rückwärts die Klasse wieder rausbekommen?
Also wie komme ich über Node2.data auf TMyClassB?

[Neutral General]

Hi,

So z.B.

Delphi-Quellcode:

TObject(Node2.data).ClassType
TObject(Node2.data).Classname

Gruß
Neutral General

[moelski]

Moin Michael,

stimmt

Danke.

[himitsu]

Zitat von moelski:

Nun habe ich dem Node.Data jeweils einen Pointer auf die Klasse mitgegeben.

'nen Zeiger auf ein Objekt (die Instanz einer Klasse)

Wenn du die Variablen ClassA/ClassB sonst nicht brauchst, dann einfach so:

Delphi-Quellcode:

Node1.data := TMyClassA.Create;
// oder 
Node1.data := Pointer(TMyClassA.Create);

Und den rückwärtigen Weg hatte ja schon wer genannt.