(Delphi ActiveX) CSV Insert Column

See more CSV Examples

Insert a new column into an existing CSV.

Note: This example requires Chilkat v9.5.0.89 or greater because the InsertColumn method was added in v9.5.0.89.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
csv: TChilkatCsv;
success: Integer;
col: Integer;
weightColumn: Integer;

begin
csv := TChilkatCsv.Create(Self);

// Load the following CSV:

//  Name;City;Weight
//  John;Chicago;180
//  Lisa;Denver;120

// Indicate that the 1st line contains column names.
csv.HasColumnNames := 1;
success := csv.LoadFile('qa_data/csv/insertColumnTest.csv');

// We can insert a column before the 1st column.
csv.InsertColumn(0);

Memo1.Lines.Add(csv.SaveToString());

// The CSV now looks like this:

//  ;Name;City;Weight
//  ;John;Chicago;180
//  ;Lisa;Denver;120

// Set the cells in column 0.

col := 0;
csv.SetColumnName(col,'id');
csv.SetCell(0,col,'100');
csv.SetCell(1,col,'101');

Memo1.Lines.Add(csv.SaveToString());

// We now have:

//  id;Name;City;Weight
//  100;John;Chicago;180
//  101;Lisa;Denver;120

// Insert a new column between City and Weight
// In other words, add a new column before the Weight column.
weightColumn := csv.GetIndex('Weight');
Memo1.Lines.Add('Weight Column Index = ' + IntToStr(weightColumn));
csv.InsertColumn(weightColumn);

Memo1.Lines.Add(csv.SaveToString());

// We now have:

//  id;Name;City;;Weight
//  100;John;Chicago;;180
//  101;Lisa;Denver;;120

// Set the cells in the new column:

csv.SetColumnName(weightColumn,'Height');
csv.SetCell(0,weightColumn,'6'' 2"');
csv.SetCell(1,weightColumn,'5'' 7"');

Memo1.Lines.Add(csv.SaveToString());

// We now have:

//  id;Name;City;Height;Weight
//  100;John;Chicago;"6' 2""";180
//  101;Lisa;Denver;"5' 7""";120
end;