Skip to main content

​
Overview

The TTreeExport component provides functionality to export tree diagrams to various formats. It supports text files, XML, HTML tables, Excel spreadsheets, and JSON.

​
Components

​
TTreeExportForm

Dialog form for exporting tree data to various formats. 
type
  TTreeExportForm = class(TTeeExportFormBase)
  public
    class function ModalShow(
      const AOwner:TComponent; 
      const ATree:TCustomTree
    ):Boolean;
  end;
Properties:
  • CBFullSize - Export using full tree dimensions
  • Inherits all export options from TTeeExportFormBase

​
Export Data Classes

​
TTreeData (Base Class)

Base class for all tree export formats. 
type
  TTreeData = class(TTeeExportData)
  public
    property Tree:TCustomTree;
    
    Procedure SaveToStream(AStream:TStream); override;
    Function AsString:String; override;
  end;

​
TTreeDataText

Export tree structure to delimited text format. 
type
  TTreeDataText = class(TTreeData)
  published
    property TextDelimiter:Char;  // Default: Tab
    property TextQuotes:String;
  end;
Features:
  • Hierarchical indentation using delimiters
  • Configurable delimiter character (tab, comma, etc.)
  • Optional text quotes
  • Line-by-line node export

​
TTreeDataXML

Export tree to XML format. 
type
  TTreeDataXML = class(TTreeData)
  public
    property Compact:Boolean;     // Default: False
    property Encoding:String;     // Default: UTF-8
  end;
Features:
  • Standard XML structure with node hierarchy
  • Compact or formatted output
  • Configurable encoding
  • Includes node name, class, and text
XML Structure: 
<?xml version="1.0" encoding="UTF-8"?>
<tree>
  <node name="Root" class="TTreeNodeShape">Root Text
    <node name="Child1" class="TTreeNodeShape">Child Text</node>
  </node>
</tree>

​
TTreeDataHTML

Export tree as HTML table. 
type
  TTreeDataHTML = class(TTreeData)
  end;
Features:
  • Hierarchical table structure
  • Indentation using empty table cells
  • Border styling
  • Web-ready output
HTML Structure: 
<table border="1">
  <tr><td>Root</td></tr>
  <tr><td></td><td>Child 1</td></tr>
  <tr><td></td><td></td><td>Grandchild</td></tr>
</table>

​
TTreeDataXLS

Export tree to Excel BIFF format. 
type
  TTreeDataXLS = class(TTreeData)
  end;
Features:
  • Excel 97-2003 compatible format (.xls)
  • Hierarchical column layout
  • Each level in separate column
  • Direct Excel import support

​
TTreeDataJSON

Export tree to JSON format. 
type
  TTreeDataJSON = class(TTreeData)
  end;
Features:
  • Nested JSON structure
  • Standard JSON syntax
  • Array-based children
JSON Structure: 
{ "tree": [
  { "text": "Root", "items": [
    { "text": "Child 1" },
    { "text": "Child 2" }
  ] }
] }

​
Usage Examples

​
Show Export Dialog

uses TreeExport;

procedure TForm1.ExportButtonClick(Sender: TObject);
begin
  ShowTreeExport(Self, Tree1);
end;

uses TreeExport;

procedure TForm1.ExportTree;
begin
  if TTreeExportForm.ModalShow(Self, Tree1) then
    ShowMessage('Export completed successfully');
end;

​
Export to Text File

uses TreeExport;

procedure TForm1.ExportToText;
var
  TextExport: TTreeDataText;
  FileStream: TFileStream;
begin
  TextExport := TTreeDataText.Create(Tree1);
  try
    TextExport.TextDelimiter := #9;  // Tab character
    TextExport.TextQuotes := '"';
    
    FileStream := TFileStream.Create('tree.txt', fmCreate);
    try
      TextExport.SaveToStream(FileStream);
    finally
      FileStream.Free;
    end;
  finally
    TextExport.Free;
  end;
end;

​
Export to XML

uses TreeExport;

procedure TForm1.ExportToXML;
var
  XMLExport: TTreeDataXML;
  FileStream: TFileStream;
begin
  XMLExport := TTreeDataXML.Create(Tree1);
  try
    XMLExport.Compact := False;        // Formatted output
    XMLExport.Encoding := 'UTF-8';
    
    FileStream := TFileStream.Create('tree.xml', fmCreate);
    try
      XMLExport.SaveToStream(FileStream);
    finally
      FileStream.Free;
    end;
  finally
    XMLExport.Free;
  end;
end;

​
Export to HTML

uses TreeExport;

procedure TForm1.ExportToHTML;
var
  HTMLExport: TTreeDataHTML;
begin
  HTMLExport := TTreeDataHTML.Create(Tree1);
  try
    // Save to file
    with TStringList.Create do
    try
      Text := HTMLExport.AsString;
      SaveToFile('tree.html');
    finally
      Free;
    end;
  finally
    HTMLExport.Free;
  end;
end;

​
Export to Excel

uses TreeExport;

procedure TForm1.ExportToExcel;
var
  XLSExport: TTreeDataXLS;
  FileStream: TFileStream;
begin
  XLSExport := TTreeDataXLS.Create(Tree1);
  try
    FileStream := TFileStream.Create('tree.xls', fmCreate);
    try
      XLSExport.SaveToStream(FileStream);
    finally
      FileStream.Free;
    end;
  finally
    XLSExport.Free;
  end;
end;

​
Export to JSON

uses TreeExport;

procedure TForm1.ExportToJSON;
var
  JSONExport: TTreeDataJSON;
begin
  JSONExport := TTreeDataJSON.Create(Tree1);
  try
    Memo1.Lines.Text := JSONExport.AsString;
  finally
    JSONExport.Free;
  end;
end;

​
Custom Delimiter Export

uses TreeExport;

procedure TForm1.ExportToCSV;
var
  CSVExport: TTreeDataText;
begin
  CSVExport := TTreeDataText.Create(Tree1);
  try
    CSVExport.TextDelimiter := ',';
    CSVExport.TextQuotes := '"';
    
    with TStringList.Create do
    try
      Text := CSVExport.AsString;
      SaveToFile('tree.csv');
    finally
      Free;
    end;
  finally
    CSVExport.Free;
  end;
end;

​
Compact XML Export

uses TreeExport;

procedure TForm1.ExportCompactXML;
var
  XMLExport: TTreeDataXML;
begin
  XMLExport := TTreeDataXML.Create(Tree1);
  try
    XMLExport.Compact := True;  // No indentation or line breaks
    
    Memo1.Lines.Text := XMLExport.AsString;
  finally
    XMLExport.Free;
  end;
end;

​
Helper Functions

​
ShowTreeExport

Display the tree export dialog. 
Procedure ShowTreeExport(AOwner:TComponent; ATree:TCustomTree);
Parameters:
  • AOwner - Owner component for the dialog
  • ATree - Tree to export

​
Export Formats Summary

FormatClassExtensionUse Case
TextTTreeDataText.txt, .csvSimple hierarchical data
XMLTTreeDataXML.xmlStructured data exchange
HTMLTTreeDataHTML.htmlWeb display
ExcelTTreeDataXLS.xlsSpreadsheet analysis
JSONTTreeDataJSON.jsonWeb APIs, JavaScript

​
Features

​
Text Export

  • Configurable delimiters (tab, comma, pipe, etc.)
  • Optional text quotes
  • Hierarchical indentation
  • Multi-line node text support

​
XML Export

  • Standard XML 1.0 format
  • UTF-8 encoding support
  • Compact or formatted output
  • Preserves node hierarchy and metadata

​
HTML Export

  • Table-based layout
  • Automatic indentation via empty cells
  • Browser-ready output
  • Customizable via CSS

​
Excel Export

  • BIFF5 format (Excel 97-2003)
  • Hierarchical column structure
  • Preserves tree levels
  • Direct Excel import

​
JSON Export

  • Standard JSON syntax
  • Nested object structure
  • Array-based children
  • JavaScript-ready

​
See Also

Build docs developers (and LLMs) love

Get started for freeTalk to us