Ja, das stimmt. ich habe pNode deklariert.
Delphi-Quellcode:
var
pNode : PVirtualNode;
Level: Integer;
DataSys : TOSYSTEM; // ein Zeiger auf die Datenstruktur
begin
Level := VSTSystem.GetNodeLevel(Node);
while TOSYSTEM(VSTSystem.GetNodeData(pNode)^) = nil do
pNode := pNode.Parent;
DataSys := TOSYSTEM(VSTSystem.GetNodeData(Node)^);
case Level of
0: case Column of
0: Celltext := DataSys.Objekt;
end;
1: case Column of
0: Celltext := DataSys.Zentrale;
end;
2: case Column of
0: Celltext := DataSys.IP;
end;
3: case Column of
0: Celltext := DataSys.COM;
end;
end;
end;
Ein weiteres Problem, wäre ja auch die Zuordnung von Level 2, ich möchte dem Level mehrer verschieden Einträge zuordnen, die aber im selben Objekt stehen.
siehe DataSys.IP und DataSys.COM
Irgendwie stehe ich momentan total auf der Leitung.
Gruß Jens