Typprüfung bei TTreeNode.Data

[himitsu]

Das kannst du gleich mal wieder vergessen, denn der Typ von Data ist und bleibt immer POINTER, egal was du da reinpackst.

Wenn, dann mußt du dir schon selber irgendwie die nötigen Daten(Typenkennung) mitgeben.
z.B. eine Signatur innerhalb Daten.

Delphi-Quellcode:

Type TS2DGroup = Record
    Typ: Byte;
    ... {eigene Daten}
  End;
  TS3DGroup = Record
    Typ: Byte;
    ... {eigene Daten}
  End;


if PByte(Node.Data)^ = 3 then {is TS3DGroup}

if PS3DGroup(Node.Data)^.Typ = 3 then {is TS3DGroup}

Du mußt hierbei aber auch selber dafür sorgen, daß die richtige Signatur im Record vorhanden ist ... also du mußt demnach selber z.B. die 3 für TS3DGroup in Typ eintragen.