Delphi ActiveX

CSV Enable Quotes

Explains the EnableQuotes property for the CSV class. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
csv: TChilkatCsv;
csv2: TChilkatCsv;

begin
success := 0;

// The CSV in this example contains this:   test;"123;abc";xyz

csv := TChilkatCsv.Create(Self);

// EnableQuotes is 1 by default, but we'll explicitly set to 1 here:
csv.EnableQuotes := 1;
success := csv.LoadFile('qa_data/csv/enableQuotes.csv');

// Show row 0, column 0
Memo1.Lines.Add(csv.GetCell(0,0));
// Show row 0, column 1
Memo1.Lines.Add(csv.GetCell(0,1));
// Show row 0, column 2
Memo1.Lines.Add(csv.GetCell(0,2));

// Output is: 
//  test
//  123;abc
//  xyz

// -------------------------------------------
// Turn off EnableQuotes and see what happens:

csv2 := TChilkatCsv.Create(Self);
csv2.EnableQuotes := 0;

success := csv2.LoadFile('qa_data/csv/enableQuotes.csv');

Memo1.Lines.Add(csv2.GetCell(0,0));
Memo1.Lines.Add(csv2.GetCell(0,1));
Memo1.Lines.Add(csv2.GetCell(0,2));
Memo1.Lines.Add(csv2.GetCell(0,3));

// Output is:

//  test
//  "123
//  abc"
//  xyz
end;