TVirtualStringTree -> TStringGrid

[Hawkeye219]

Hallo Heiko,

ich würde so vorgehen:

Delphi-Quellcode:

var
  Col, Row : Integer;
  Node     : PVirtualNode;
begin
  Grid.RowCount := VST.RootNodeCount + 1;
  Grid.ColCount := VST.Header.Columns.Count;

  for Col := 0 to Grid.ColCount - 1 do
    Grid.Cells[Col, 0] := VST.Header.Columns[Col].Text;

  Row := 1;
  Node := VST.GetFirst;
  while Assigned(Node) do
    begin
      for Col := 0 to Grid.ColCount -1  do
        Grid.Cells[Col, Row] := VST.Text[Node, Col];
      Inc (Row);
      Node := Node.NextSibling;
    end;
end;

Gruß Hawkeye