JCSV (Jans CSV Components)

From Free Pascal wiki
Jump to: navigation, search

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.

Example.png

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

Csv.png

Csv1.png

Csv2.png

The example code is listed below also.

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

See Also