This is a mirror of the wiki at pascal.chat. Editing, history and sign-in are there.

JCSV (Jans CSV Components)

About

JCSV (Jans Freeware CSV Database Components is a set of components for using a CSV Database

The download contains the component, an installation package.

Author

Jan Verhoeven Email jan1.verhoeven at wxs.nl Modified by David Stewart Email davesimplewear at yahoo dot com

License

modified LGPL (same as the FPC RTL and the Lazarus LCL). You can contact the author if the modified LGPL doesn't work with your project licensing.

Download

The latest stable release can be found on the lazarus-ccr sf download location. Also from David's Freeware.

Example Program

To create the example first create your csv database, using your text editor type the field names you wish to use, as in the image below.

text

Image:Example.png

You can search on any field by using the search button in the navigator. as shown in the images below.

The example code is listed below also.

pascal

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, jvCSVBase;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    CSVBase: TjvCSVBase;
    jvCSVCheckBox1: TjvCSVCheckBox;
    jvCSVComboBox1: TjvCSVComboBox;
    jvCSVEdit1: TjvCSVEdit;
    jvCSVEdit2: TjvCSVEdit;
    jvCSVEdit3: TjvCSVEdit;
    jvCSVEdit4: TjvCSVEdit;
    jvCSVEdit5: TjvCSVEdit;
    jvCSVEdit6: TjvCSVEdit;
    jvCSVEdit7: TjvCSVEdit;
    jvCSVEdit8: TjvCSVEdit;
    jvCSVEdit9: TjvCSVEdit;
    jvCSVLabel1: TjvCSVLabel;
    jvCSVNavigator1: TjvCSVNavigator;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
begin
  CSVbase.DataBaseOpen(ExtractFilePath(ParamStr(0))+'example.csv');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  jvCSVEdit8.Caption:= FormatDateTime('dd/mm/yy',now);
end;

initialization
  {$I Unit1.lrs}

end.

Change Log

Version 1.0 date

Dependencies / System Requirements

None

Status: Stable / Alpha

Issues:

Installation

Use *.lpk file to install