CSV Import

uses BI.CSV, BI.DataItem;

var
  Data: TDataItem;
  
// Import CSV file
Data := TBICSV.FromFile('customers.csv');

// Import from text
var
  CSV: TBICSV;
CSV := TBICSV.Create;
try
  Data := CSV.ImportText('Name,Age' + #13#10 + 'John,30');
finally
  CSV.Free;
end;

class function FromFile(const AFileName: String): TDataItem;

Data := TBICSV.FromFile('sales_data.csv');
BIGrid1.Data := Data;

function ImportFile(const AFileName: String): TDataArray;

var
  CSV: TBICSV;
  DataArray: TDataArray;
  
CSV := TBICSV.Create;
try
  CSV.OnProgress := ShowProgress;
  DataArray := CSV.ImportFile('large_file.csv');
  Data := TBISource.FromData(DataArray);
finally
  CSV.Free;
end;

function ImportText(const AText: String): TDataItem;

var
  CSVText: String;
  
CSVText := 'Product,Price' + #13#10 +
           'Widget,19.99' + #13#10 +
           'Gadget,29.99';
           
Data := CSV.ImportText(CSVText);

function Import(const Strings: TStrings): TDataArray;

DataArray := CSV.Import(Memo1.Lines);

class function FromFolder(const Folder: String): TDataItem;

Data := TBICSV.FromFolder('C:\\Data\\CSVFiles');

var
  CSV: TBICSV;
  
CSV := TBICSV.Create;
CSV.Delimiter := ';'; // Use semicolon
// Or use automatic detection:
CSV.Delimiter := TBICSV.AutomaticDelimiter; // Default

CSV.Quote := '"'; // Default is double-quote

type TTextHeaders = (Auto, Yes, No);

CSV.Header.Headers := TTextHeaders.Auto; // Default - auto-detect
CSV.Header.Headers := TTextHeaders.Yes;  // First row is headers
CSV.Header.Headers := TTextHeaders.No;   // No headers, generate names

// Number of header rows to skip
CSV.Header.Count := 1; // Default

CSV.MissingValue := ''; // Default empty string
CSV.MissingValue := 'N/A';

var
  CSV: TBICSV;
  
CSV := TBICSV.Create;
try
  CSV.Delimiter := ';';
  CSV.Header.Headers := TTextHeaders.Yes;
  CSV.Header.Count := 2; // Skip first 2 rows
  
  Data := CSV.ImportFile('european_data.csv');
finally
  CSV.Free;
end;

CSV.IncludePattern := '*.csv';
CSV.ExcludePattern := 'temp_*.csv';
Data := CSV.Import('C:\\Data', True); // Recursive

uses BI.Persist;

var
  Def: TDataDefinition;
  CSV: TBICSV;
  
Def := TDataDefinition.Create;
try
  Def['Delimiter'] := ';';
  Def['Quote'] := '"';
  Def['HeaderCount'] := '1';
  Def['Headers'] := 'Yes';
  
  CSV := TBICSV.Create(Def);
  try
    Data := CSV.ImportFile('data.csv');
  finally
    CSV.Free;
  end;
finally
  Def.Free;
end;

// Good for large files
CSV.OnProgress := procedure(Sender: TObject; Percent: Integer; var Cancel: Boolean)
  begin
    Application.ProcessMessages;
    if Percent mod 10 = 0 then
      ShowStatus('Loading: ' + IntToStr(Percent) + '%');
  end;

uses BI.CSV;

var
  Export: TBICSVExport;
  
Export := TBICSVExport.Create;
try
  Export.Data := MyData;
  Export.Delimiter := ',';
  Export.Quote := '"';
  Export.Header := True;
  
  Export.SaveToFile('output.csv');
finally
  Export.Free;
end;

// Check if extension is supported
if TBICSV.Supports('.csv') then
  Data := TBICSV.FromFile(FileName);

// Get file filter for dialogs
OpenDialog1.Filter := TBICSV.FileFilter.ToString;
// Returns: 'CSV files|*.csv|TSV files|*.tsv|Text files|*.txt'