program jvcl6193;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  JvCSVData, DB;

var DS: TJvCsvDataSet;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    DS := TJvCsvDataSet.Create(nil);
    try
      DS.UseSystemDecimalSeparator := True;
      DS.LoadsFromFile := False;
      DS.CsvFieldDef   := 'Dumb%';
      with DS.FieldDefs.AddFieldDef do begin
           DataType := ftInteger;
           Name     := 'Dumb';
      end;
      DS.Active := True;
    finally
      DS.free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.