Problem mit Pointer beim VirtualStringTree

[himitsu]

Code:

v = der tatsächliche Level

0 -Level1
1   -Level2
2     -Level3
[color=#ff0000]2     -Level3[/color]

Code:

var
  Level: Integer;
  DataSys : TOSYSTEM;
begin
  Level := VSTSystem.GetNodeLevel(Node);
  while TOSYSTEM(VSTSystem.GetNodeData(Node)^) = nil do
    Node := Node.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;
  [color=#ff0000]3:  case Column of
        0: Celltext := DataSys.COM;
      end;[/color]
  end;
end;

oder

Code:

var
  [color=#0000ff][b]p[/b][/color]Node: PVirtualNode;
  Level: Integer;
  DataSys : TOSYSTEM;
begin
  [color=#0000ff][b]p[/b][/color]Node := Node;
  Level := VSTSystem.GetNodeLevel([color=#0000ff][b]p[/b][/color]Node);
  while TOSYSTEM(VSTSystem.GetNodeData([color=#0000ff][b]p[/b][/color]Node)^) = nil do
    [color=#0000ff][b]p[/b][/color]Node := [color=#0000ff][b]p[/b][/color]Node.Parent;
  DataSys := TOSYSTEM(VSTSystem.GetNodeData([color=#0000ff][b]p[/b][/color]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;
  [color=#ff0000]3:  case Column of
        0: Celltext := DataSys.COM;
      end;[/color]
  end;
end;