Difference between revisions of "JCSV (Jans CSV Components)"
m (Text replace - "delphi>" to "syntaxhighlight>") |
|||
Line 34: | Line 34: | ||
The example code is listed below also. | The example code is listed below also. | ||
− | < | + | <syntaxhighlight>uses |
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, | ||
StdCtrls, jvCSVBase; | StdCtrls, jvCSVBase; | ||
Line 90: | Line 90: | ||
{$I Unit1.lrs} | {$I Unit1.lrs} | ||
− | end.</ | + | end.</syntaxhighlight> |
=== Change Log === | === Change Log === |
Revision as of 15:37, 24 March 2012
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