function Addr (const Class:TObject):integer;
//Im folgenden Beispiel wird mit der Funktion Addr die Adresse eines numerischen Wertes ermittelt, //der als benutzerdefiniertes Datum im Knoten eines Baumdiagramms gespeichert ist. //Sobald die Zuweisung erfolgt ist, können Änderungen an den Elementen im Array NodeNumbers gelesen werden, //indem die Zeiger dereferenziert werden, welche in der Eigenschaft Data der Gliederungsknoten gespeichert sind.var I : Integer; NodeNumbers: array 0 .. 100 of Integer; begin with TreeView1 do begin for I := 0 to Items.Count - 1 do begin NodeNumbersI := CalculateValue(ItemsI); ItemsI.Data := Addr(NodeNumberI); end; end; end;