TTreeNode um eine weitere Variable erweitern

[Nogge]

Ich benutze Node.Data so:

Delphi-Quellcode:

type
  TGroupData = record
    GroupID      : Word;
    ShouldExpand : Boolean;
  end;
  PGroupData = ^TGroupData;

{...}

New(GroupData);
try
  GroupData.GroupID:=GroupID;
  GroupData.ShouldExpand:=StrToBool(Copy(s,Index+1,Length(s)-Index));
  GroupNode.Data:=GroupData;
finally
  Dispose(GroupData);
end;