Importing Data

uses BI.CSV;

procedure ImportCSV;
var CSV: TBICSV;
    Data: TDataItem;
begin
  CSV := TBICSV.Create;
  try
    // Configure CSV options
    CSV.Delimiter := ',';
    CSV.Quote := '"';
    CSV.Header.Headers := TTextHeaders.Auto;  // Auto-detect headers
    CSV.MissingValue := 'NA';  // Treat 'NA' as null
    CSV.ZeroOneAsBoolean := True;  // 0/1 as Boolean

    // Import from file
    Data := CSV.ImportFile('data.csv');

    // Or use class method for one-liner:
    // Data := TBICSV.FromFile('data.csv');
  finally
    CSV.Free;
  end;
end;

// From text string
Data := TBICSV.FromText('A,B,C' + #13#10 + '1,2,3');

// From TStrings (Memo, StringList)
Data := TBICSV.FromStrings(Memo1.Lines);

// From URL
CSV.ImportURL('http://example.com/data.csv');

// From folder (recursive)
CSV.Import('c:\\mydata', True);

uses BI.JSON;

procedure ImportJSON;
var JSON: TBIJSON;
begin
  JSON := TBIJSON.Create;
  try
    JSON.Format := TBIJSONFormat.Normal;  // Or .Array for MongoDB
    JSON.MissingValue := 'NA';
    JSON.ZeroOneAsBoolean := True;

    Data := JSON.Import(Memo1.Lines);

    // Class method:
    // Data := TBIJSON.FromFile('data.json');
  finally
    JSON.Free;
  end;
end;

uses BI.XMLData;

procedure ImportXML;
var XML: TBIXML;
begin
  XML := TBIXML.Create;
  try
    XML.ExcludePattern := 'SYS*';  // Exclude matching nodes
    XML.MissingValue := 'NA';
    XML.ZeroOneAsBoolean := True;

    Data := XML.ImportText(MemoXML.Text);

    // Class method:
    // Data := TBIXML.FromFile('data.xml');
  finally
    XML.Free;
  end;
end;

uses BI.Excel;

procedure ImportExcel;
var Excel: TBIExcel;
begin
  Excel := TBIExcel.Create;
  try
    Excel.HeaderCount := 2;  // Number of header rows
    Excel.Range := 'A1:D100';  // Optional range
    Excel.WorkSheet := 'Sheet1';  // Optional sheet name

    Data := Excel.ImportFile('workbook.xlsx');

    // Class method:
    // Data := TBIExcel.FromFile('workbook.xlsx');

    // From URL
    // Data := Excel.ImportURL('http://example.com/data.xlsx');
  finally
    Excel.Free;
  end;
end;

uses BI.HTML;

procedure ImportHTML;
var HTML: TBIHTML;
begin
  HTML := TBIHTML.Create;
  try
    Data := HTML.FromText(MemoHTML.Text);
  finally
    HTML.Free;
  end;
end;

uses BI.DataSource;

type
  TCustomer = class
    ID: Integer;
    Name: String;
    Email: String;
  end;

var
  Customers: TArray<TCustomer>;
  Data: TDataItem;
begin
  // TeeBI uses RTTI to automatically extract fields
  Data := TTypeProvider<TCustomer>.Create(Self, Customers).Data;
end;

uses BI.DataSource;

// Automatic detection of component type
Data := TComponentImporter.From(Self, Memo1.Lines);
Data := TComponentImporter.From(Self, DataSource1);
Data := TComponentImporter.From(Self, ClientDataSet1);

uses BI.DataSource;

// Automatically detects CSV, JSON, XML, etc.
Data := TBIURLSource.From('https://api.example.com/data');

uses BI.AI;

// Import data from AI agents like Google Gemini
Data := TBIAI.From('Give me the 10 highest mountains by elevation in CSV format');

uses BI.Persist;

// Detects .csv, .json, .xml, .xlsx, etc.
Data := TBIFileSource.From('unknown_file.dat');