Problem mit Pointer beim VirtualStringTree

[Jens Hartmann]

Ja, das hatte ich so auch schon mal versucht...

Delphi-Quellcode:

  pNode := VSTSystem.AddChild(nil,DataSys);
  pNode := VSTSystem.AddChild(pNode);
  pNode := VSTSystem.AddChild(pNode);
  VSTSystem.AddChild(pNode);

allerdings, stimmt dan irgendwo was bei meiner GetText Anweisung nicht.

Delphi-Quellcode:

var
  DataSys : TOSYSTEM;   // ein Zeiger auf die Datenstruktur
begin
  DataSys := TOSYSTEM(VSTSystem.GetNodeData(Node)^);
  case VSTSystem.GetNodeLevel(Node) 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;