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