VirtualTreeView - Freigabe der Daten

[Viktorii]

Da stehe ich jetzt aber etwas auf dem Schlauch....


Erst definier ich mir mein Record:

Delphi-Quellcode:

  PTreeData = ^TTreeData;
  TTreeData = record
                Tag               : Integer;
                Conflict          : Boolean;
                Column            : array[0..6] of string;
              end;

Dann mach ich mir ein paar Nodes mit den Daten mit dieser Funktion:

Delphi-Quellcode:

function TVirtualStringTreeBFInfo.AddVSTStructure(AVST      : TCustomVirtualStringTree;
                                                  ANode     : PVirtualNode;
                                                  ARecord   : TTreeData): PVirtualNode;
var
  pData : PTreeData;

begin
  Result := AVST.AddChild(ANode);
  pData := AVST.GetNodeData(Result);
  Avst.ValidateNode(Result, False);

  pData^.Conflict := ARecord.Conflict;
  pData^.Tag := ARecord.Tag;
  pData^.Column[0] := ARecord.Column[0];
  pData^.Column[1] := ARecord.Column[1];
  pData^.Column[2] := ARecord.Column[2];
  pData^.Column[3] := ARecord.Column[3];
  pData^.Column[4] := ARecord.Column[4];
  pData^.Column[5] := ARecord.Column[5];
  pData^.Column[6] := ARecord.Column[6];

end;

Ich habe also weder new noch getmem genutzt.