Wenn man den Konstanten "Namen" gibt, dann kann den Code in drei Tagen auch noch Lesen
Delphi-Quellcode:
type
TMyTreeNodeLevel = (
mytnlRoot = 0,
mytnlGroup = 1,
mytnlUser = 2
);
//...
var
Node: TTreeNode;
//...
begin
//...
case TMyTreeNodeLevel(Node.Level) of
mytnlRoot:
begin
//...
end;
mytnlGroup:
begin
//...
end;
mytnlUser:
begin
//...
end;
end;
end;
Wenn die Hierarchie nichts mehr mit dem "Level" des Knotens zu tun hat, dann kommst du nicht umhin, die Informationen an den jeweiligen Knoten zu hängen.