CSV Column Names

Demonstrates how to access CSV column names.

The Chilkat CSV library/component/class is freeware. The downloads for .NET, C++, Perl, Java, Ruby, and Python contain all of the Chilkat classes, some of which are freeware and some of which require licensing.

Download Chilkat CSV ActiveX (freeware)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCSVLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
csv: TChilkatCsv;
success: Integer;
i: Integer;
colName: String;
idx: Integer;

begin
//  This example program loads a file (sample.csv)
//  that contains this content:
// 
//  year,color,country,food
//  2001,red,France,cheese
//  2005,blue,"United States",hamburger
//  2008,green,Italy,pasta
//  1998,orange,Japan,sushi
// 
//  The first row contains the column names.
//  This file is available at:
//  http://www.chilkatsoft.com/testData/sample.csv

csv := TChilkatCsv.Create(Self);

//  Prior to loading the CSV file, indicate that the 1st row
//  should be treated as column names:
csv.HasColumnNames := 1;

//  Load the CSV records from the file:

success := csv.LoadFile('sample.csv');
if (success <> 1) then
  begin
    ShowMessage(csv.LastErrorText);
    Exit;
  end;

//  Display the column names:

for i := 0 to csv.NumColumns - 1 do
  begin
    colName := csv.GetColumnName(i);
    Memo1.Lines.Add(IntToStr(i) + ': ' + colName);

    //  The following line demonstrates to to get the column
    //  index given a column name:
    idx := csv.GetIndex(colName);
    Memo1.Lines.Add(colName + ' is at column index '
         + IntToStr(idx));
  end;

end;