virtualstringtree in excel exportieren

[youuu]

Schönen guten Morgen,

danke David, allerdings funktioniert diese Stelle bei mir nicht

FNodeData : PGridTreeData; undeklarierter Bezeichner wird mir da zurück gegeben.

[David Martens]

ich sehe gerade das der Export so doch nicht unabhänig von den Daten ist.

Hier was noch fehlt:

Delphi-Quellcode:

type
  TGridTreeData = record
    Columns : TStringList;
  end;
  PGridTreeData = ^TGridTreeData;

Das sind quasi die Daten einer Reihe. Entweder übernimmst du das so, oder du nimmst deine eigene Struktur.

David

[youuu]

Hm da erhalt ich eine Zugriffsverletzung bei.

[David Martens]

Wie sieht denn bei dir die Datenstruktur aus, in die du die Daten schreibst?

Hier noch wie wir das machen:

Delphi-Quellcode:

procedure TfraGLOB_VSTAnalyseGrid.LoadVST;
var
  GridNodeData : PGridTreeData;
  newGridNode  : PVirtualNode;
  i            : integer;
begin
  FDataSource.DataSet.Open;
  FDataSource.DataSet.First;

  vstAnalyse.Clear;
  vstAnalyse.BeginUpdate;

  while not FDataSource.DataSet.Eof do
  begin
    newGridNode := vstAnalyse.AddChild(nil);
    GridNodeData := vstAnalyse.GetNodeData(newGridNode);
    vstAnalyse.ValidateNode(newGridNode, false);
    GridNodeData^.Columns := TStringList.Create;

    for i := 0 to FDataSource.DataSet.Fields.Count - 1 do
      GridNodeData^.Columns.Add(FDataSource.DataSet.Fields[i].AsString);

    FDataSource.DataSet.Next;
  end;

  vstAnalyse.EndUpdate;
  SetHeaders;
  SetColumnWidth;

  newGridNode := vstAnalyse.GetFirst;

  if newGridNode <> nil then
  begin
    vstAnalyse.Selected[newGridNode] := true;
  end;
  
  SetControls;
end;

[youuu]

Delphi-Quellcode:

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

So ist meine Struktur

Delphi-Quellcode:

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

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

[David Martens]

Als Klasse? Das geht doch bei VST garnicht.

[youuu]

Also bislang funktionierte es super, bzw. hatte keine Probleme damit.