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.
