JCSV (Jans CSV Components)

From Lazarus wiki
Revision as of 12:00, 4 September 2010 by Chronos (talk | contribs)
Jump to navigationJump to 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.

<delphi>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.</delphi>

Change Log

  • Version 1.0 date

Dependencies / System Requirements

  • None

Status: Stable / Alpha

Issues:


Installation

  • Use *.lpk file to install