JCSV (Jans CSV Components): what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | ### About | |
| 2 | 2 | ||
| 3 | 3 | *JCSV (Jans Freeware CSV Database Components* is a set of components for using a CSV Database | |
| 4 | 4 | ||
| 5 | 5 | The download contains the component, an installation package. | |
| 6 | 6 | ||
| 7 | 7 | ### Author | |
| 8 | 8 | ||
| 9 | 9 | Jan Verhoeven Email jan1.verhoeven at wxs.nl Modified by David Stewart Email davesimplewear at yahoo dot com | |
| 10 | 10 | ||
| 11 | 11 | ### License | |
| 12 | 12 | ||
| 13 | 13 | [modified](http://svn.freepascal.org/svn/lazarus/trunk/COPYING.modifiedLGPL) [LGPL](http://svn.freepascal.org/svn/lazarus/trunk/COPYING.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. | |
| 14 | 14 | ||
| 15 | 15 | ### Download | |
| 16 | 16 | ||
| 17 | 17 | The latest stable release can be found on [the lazarus-ccr sf download location](http://sourceforge.net/projects/lazarus-ccr/files/JCSV/). Also from [David's Freeware](http://www.users.on.net/~dave.stewart/index.html). | |
| 18 | 18 | ||
| 19 | 19 | ### Example Program | |
| 20 | 20 | ||
| 21 | 21 | 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. | |
| 22 | 22 | ||
| 23 | 23 |  | |
| 24 | 24 | ||
| 25 | 25 | You can search on any field by using the search button in the navigator. as shown in the images below. | |
| 26 | 26 | ||
| 27 | - | ||
| 28 | - | ||
| 29 | - | ||
| 30 | - | ||
| 27 | + |  | |
| 31 | 28 | ||
| 32 | - | ||
| 33 | - | ||
| 34 | - | ||
| 35 | - | ||
| 29 | + |  | |
| 36 | 30 | ||
| 37 | - | ||
| 38 | - | ||
| 39 | - | ||
| 40 | - | ||
| 31 | + |  | |
| 41 | 32 | ||
| 42 | 33 | The example code is listed below also. | |
| 43 | 34 | ||
| 44 | 35 | ``` pascal | |
| 45 | 36 | uses | |
| 46 | 37 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, | |
| 47 | 38 | StdCtrls, jvCSVBase; | |
| 48 | 39 | ||
| 49 | 40 | type | |
| 50 | 41 | ||
| 51 | 42 | { TForm1 } | |
| 52 | 43 | ||
| 53 | 44 | TForm1 = class(TForm) | |
| 54 | 45 | Button1: TButton; | |
| 55 | 46 | CSVBase: TjvCSVBase; | |
| 56 | 47 | jvCSVCheckBox1: TjvCSVCheckBox; | |
| 57 | 48 | jvCSVComboBox1: TjvCSVComboBox; | |
| 58 | 49 | jvCSVEdit1: TjvCSVEdit; | |
| 59 | 50 | jvCSVEdit2: TjvCSVEdit; | |
| 60 | 51 | jvCSVEdit3: TjvCSVEdit; | |
| 61 | 52 | jvCSVEdit4: TjvCSVEdit; | |
| 62 | 53 | jvCSVEdit5: TjvCSVEdit; | |
| 63 | 54 | jvCSVEdit6: TjvCSVEdit; | |
| 64 | 55 | jvCSVEdit7: TjvCSVEdit; | |
| 65 | 56 | jvCSVEdit8: TjvCSVEdit; | |
| 66 | 57 | jvCSVEdit9: TjvCSVEdit; | |
| 67 | 58 | jvCSVLabel1: TjvCSVLabel; | |
| 68 | 59 | jvCSVNavigator1: TjvCSVNavigator; | |
| 69 | 60 | Label1: TLabel; | |
| 70 | 61 | Label2: TLabel; | |
| 71 | 62 | Label3: TLabel; | |
| 72 | 63 | Label4: TLabel; | |
| 73 | 64 | procedure Button1Click(Sender: TObject); | |
| 74 | 65 | procedure FormShow(Sender: TObject); | |
| 75 | 66 | private | |
| 76 | 67 | { private declarations } | |
| 77 | 68 | public | |
| 78 | 69 | { public declarations } | |
| 79 | 70 | end; | |
| 80 | 71 | ||
| 81 | 72 | var | |
| 82 | 73 | Form1: TForm1; | |
| 83 | 74 | ||
| 84 | 75 | implementation | |
| 85 | 76 | ||
| 86 | 77 | { TForm1 } | |
| 87 | 78 | ||
| 88 | 79 | procedure TForm1.FormShow(Sender: TObject); | |
| 89 | 80 | begin | |
| 90 | 81 | CSVbase.DataBaseOpen(ExtractFilePath(ParamStr(0))+'example.csv'); | |
| 91 | 82 | end; | |
| 92 | 83 | ||
| 93 | 84 | procedure TForm1.Button1Click(Sender: TObject); | |
| 94 | 85 | begin | |
| 95 | 86 | jvCSVEdit8.Caption:= FormatDateTime('dd/mm/yy',now); | |
| 96 | 87 | end; | |
| 97 | 88 | ||
| 98 | 89 | initialization | |
| 99 | 90 | {$I Unit1.lrs} | |
| 100 | 91 | ||
| 101 | 92 | end. | |
| 102 | 93 | ``` | |
| 103 | 94 | ||
| 104 | 95 | ### Change Log | |
| 105 | 96 | ||
| 106 | 97 | - Version 1.0 *date* | |
| 107 | 98 | ||
| 108 | 99 | ### Dependencies / System Requirements | |
| 109 | 100 | ||
| 110 | 101 | - None | |
| 111 | 102 | ||
| 112 | 103 | Status: *Stable / Alpha* | |
| 113 | 104 | ||
| 114 | 105 | Issues: | |
| 115 | 106 | ||
| 116 | 107 | ### Installation | |
| 117 | 108 | ||
| 118 | 109 | - Use *.lpk file to install | |
| 119 | 110 | ||
| 120 | 111 | ### See Also | |
| 121 | 112 | ||
| 122 | 113 | - [[CsvDocument]] | |
| 123 | 114 | - [[CSV]] | |
| 124 | 115 | - [[ZMSQL]] | |
| 125 | 116 | ||
| 126 | 117 | --- | |
| 127 | 118 | *From the Free Pascal wiki, page "JCSV (Jans CSV Components)", as it stood on 2020-02-10 after a change by Andry, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* | |
| 128 | 119 | Category: Components | |
| 129 | 120 | Category: Data import and export |