virtualstringtree in excel exportieren

[David Martens]

Wie greifst du denn später auf "data" aus VstScan.addchild(nil, data); zu?

Moment ich sehe gerade:

Zitat von youuu:

Code:

type
  Tdata = class
    name: WideString;
    url: WideString;
    date: WideString;
end;

So ist meine Struktur

Code:

with data do
  Begin
    Kunde.name := NameExport(RKundenSource.Lines.Text); 
    Kunde.date := DateExport(RKundenSource.Lines.Text);   
    Kunde.url := sl[i];                 
  end;

  VstScan.update;
  VstScan.addchild(nil, data);
  VstScan.endupdate;

Da haut was nicht hin. Was ist denn Kunde, das ist in der Klasse doch garnicht definiert. Damit speicherst du nicht ab.

Versuchs mal hiermit

Delphi-Quellcode:

  TGridTreeData = record
    name: WideString;
    url: WideString;
    date: WideString;
  end;
  PGridTreeData = ^TGridTreeData;

...
var
  GridNodeData : PGridTreeData;
  newGridNode : PVirtualNode;
begin
    newGridNode := vstAnalyse.AddChild(nil);
    GridNodeData := vstAnalyse.GetNodeData(newGridNode);
    vstAnalyse.ValidateNode(newGridNode, false);

    GridNodeData^.name := NameExport(RKundenSource.Lines.Text); 
    GridNodeData^.date := DateExport(RKundenSource.Lines.Text);   
    GridNodeData^.url := sl[i];