Typprüfung bei TTreeNode.Data

**-NIP-**

Also: Mein Problem ist: Dem Pointer TTreeNode.Data können verschiedene Typen zugeweist werden.
im OnChange meines TTreeView versuche ich zu prüfen, on es ein bestimmter Typ ist, um dann speziell auf den typen zu reagieren. Also eine if then Abfrage.
Wie führe ich eine Typprüfung bei einem Pointer aus?

Das hier kompiliert er zwar klaglos, aber führt die Anweisung nicht aus:

markieren

Delphi-Quellcode:

			procedure TGLForm.ObjectsTreeTVChange(Sender: TObject; Node: TTreeNode);

begin

  if Node.Data = TS3DGroup then

  showmessage('Group');

end;

Irgendwo hab ich gelesen das Typprüfung mit "is" geht, aber da ist mein Compiler anderer Meinung. Das hier akzeptiert er nicht:

markieren

Delphi-Quellcode:

			procedure TGLForm.ObjectsTreeTVChange(Sender: TObject; Node: TTreeNode);

begin

  if Node.Data is TS3DGroup then

  showmessage('Group');

end;

Nochmal ist eure Hilfe gefragt

(Warscheinlich steh ich auf dem Schlauch, aber ich probiere und suche jetzt schon eine Stunde)

Typprüfung bei TTreeNode.Data

Typprüfung bei TTreeNode.Data

Forumregeln