Einzelnen Beitrag anzeigen

Benutzerbild von -NIP-
-NIP-

Registriert seit: 6. Jun 2004
Ort: Aachen
254 Beiträge
 
Delphi 7 Personal
 
#1

Typprüfung bei TTreeNode.Data

  Alt 17. Nov 2005, 23:16
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:
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:
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)
Christian
  Mit Zitat antworten Zitat