Export Formats

uses
  BI.CSV;

var
  CSV: TBICSVExport;
  Data: TDataItem;
  Text: String;
begin
  // Export to string
  Text := TBICSVExport.AsString(Data);
  
  // Save to file
  TBICSVExport.SaveToFile(Data, 'export.csv');
end;

var
  CSV: TBICSVExport;
begin
  CSV := TBICSVExport.Create(nil);
  try
    CSV.Delimiter := ';';  // Semicolon
    CSV.Data := MyData;
    CSV.SaveToFile('export.csv');
  finally
    CSV.Free;
  end;
end;

var
  CSV: TBICSVImport;
  Data: TDataItem;
begin
  CSV := TBICSVImport.Create(nil);
  try
    CSV.FileName := 'import.csv';
    CSV.Delimiter := ',';
    CSV.HasHeader := True;
    
    Data := CSV.Import;
  finally
    CSV.Free;
  end;
end;

uses
  BI.PDF;

var
  PDF: TBIPDFExport;
begin
  PDF := TBIPDFExport.Create(nil);
  try
    PDF.Data := MyData;
    PDF.FileName := 'report.pdf';
    PDF.Export;
  finally
    PDF.Free;
  end;
end;

PDF.Title := 'Sales Report';
PDF.Author := 'TeeBI';
PDF.Subject := 'Q4 Sales';
PDF.Keywords := 'sales, report, quarterly';

// Page settings
PDF.PageOrientation := poLandscape;
PDF.PageSize := psA4;

// Fonts
PDF.FontName := 'Arial';
PDF.FontSize := 10;

// Grid options
PDF.ShowGrid := True;
PDF.GridColor := clSilver;
PDF.AlternateRowColor := clMoneyGreen;

uses
  BI.HTML;

var
  HTML: TBIHTMLExport;
begin
  HTML := TBIHTMLExport.Create(nil);
  try
    HTML.Data := MyData;
    HTML.SaveToFile('table.html');
  finally
    HTML.Free;
  end;
end;

HTML.Title := 'Data Export';
HTML.IncludeCSS := True;     // Embed CSS styling
HTML.TableBorder := 1;
HTML.TablePadding := 5;
HTML.AlternateRows := True;
HTML.RowColor1 := '#FFFFFF';
HTML.RowColor2 := '#F0F0F0';

// Custom CSS
HTML.CustomCSS := 
  'table { font-family: Arial; }' +
  'th { background-color: #4CAF50; color: white; }';

var
  TableHTML: String;
begin
  // Just the <table> tags, no HTML/BODY
  TableHTML := HTML.AsTableString;
end;

uses
  BI.XML;

var
  XML: TBIXMLExport;
begin
  XML := TBIXMLExport.Create(nil);
  try
    XML.Data := MyData;
    XML.SaveToFile('data.xml');
  finally
    XML.Free;
  end;
end;

XML.RootName := 'DataSet';        // Root element
XML.RowName := 'Row';             // Row elements
XML.IncludeSchema := True;        // Add XSD schema
XML.IncludeNulls := False;        // Skip null values
XML.DateTimeFormat := 'ISO8601';  // Date format

XML.OnFormatRow := procedure(const Row: Integer; 
                              const Element: IXMLNode)
begin
  // Add custom attributes
  Element.Attributes['id'] := Row;
  Element.Attributes['timestamp'] := DateTimeToStr(Now);
end;

uses
  BI.Excel;

var
  Excel: TBIExcelExport;
begin
  Excel := TBIExcelExport.Create(nil);
  try
    Excel.Data := MyData;
    Excel.SaveToFile('report.xlsx');
  finally
    Excel.Free;
  end;
end;

Excel.SheetName := 'Sales Data';
Excel.IncludeHeader := True;
Excel.AutoFitColumns := True;
Excel.FreezeHeader := True;

// Formatting
Excel.HeaderBackColor := clNavy;
Excel.HeaderFontColor := clWhite;
Excel.HeaderBold := True;
Excel.AlternateRowColor := clSilver;

// Number formats
Excel.DateFormat := 'mm/dd/yyyy';
Excel.CurrencyFormat := '$#,##0.00';
Excel.NumberFormat := '#,##0.00';

var
  Excel: TBIExcelExport;
begin
  Excel := TBIExcelExport.Create(nil);
  try
    // Add first sheet
    Excel.SheetName := 'Sales';
    Excel.Data := SalesData;
    Excel.AddSheet;
    
    // Add second sheet
    Excel.SheetName := 'Customers';
    Excel.Data := CustomerData;
    Excel.AddSheet;
    
    // Save workbook
    Excel.SaveToFile('report.xlsx');
  finally
    Excel.Free;
  end;
end;

Excel.IncludeChart := True;
Excel.ChartType := xlColumnClustered;
Excel.ChartTitle := 'Sales by Region';
Excel.ChartPosition := 'F2';  // Start at F2

uses
  BI.JSON;

var
  JSON: TBIJSONExport;
begin
  JSON := TBIJSONExport.Create(nil);
  try
    JSON.Data := MyData;
    JSON.SaveToFile('data.json');
  finally
    JSON.Free;
  end;
end;

// Array of objects (default)
JSON.Format := jfArray;
// Output: [{"Name":"John","Age":30},{"Name":"Jane","Age":25}]

// Object with arrays
JSON.Format := jfObject;
// Output: {"Name":["John","Jane"],"Age":[30,25]}

// Pretty printing
JSON.Formatted := True;  // Indent and newlines
JSON.IndentSize := 2;    // 2 spaces

JSON.IncludeNulls := False;       // Skip null values
JSON.DateFormat := jdfISO8601;    // ISO date format
JSON.EncodeStrings := True;       // Escape special chars
JSON.RootName := 'data';          // Wrap in root object

var
  Schema: String;
begin
  // Generate JSON Schema
  Schema := JSON.GenerateSchema;
  
  // Save schema
  JSON.SaveSchema('schema.json');
end;

uses
  BI.CSV, BI.Excel, BI.JSON;

procedure ExportAllFormats(const Data: TDataItem; 
                          const BaseName: String);
begin
  // CSV
  TBICSVExport.SaveToFile(Data, BaseName + '.csv');
  
  // Excel
  var Excel := TBIExcelExport.Create(nil);
  try
    Excel.Data := Data;
    Excel.SaveToFile(BaseName + '.xlsx');
  finally
    Excel.Free;
  end;
  
  // JSON
  var JSON := TBIJSONExport.Create(nil);
  try
    JSON.Data := Data;
    JSON.Formatted := True;
    JSON.SaveToFile(BaseName + '.json');
  finally
    JSON.Free;
  end;
end;