© Copyright ShareWiz International.
Peter Terence Roux
P.O. Box 28707
Sunnyside 
Pretoria
0132
South Africa
+27 833028208.
Email: rouxpt@telkom.co.za

This component is available for sale for R100 (South African) or $30 (American).


The XDbf2Pas component allows you to take a TTable component and
convert it into a pascal unit.

This pascal unit will then contain one procedure that can then be
included into a project, and when this procedure is run, it will 
automatically create the Tables with the indexes.

There is also the option of including the initial data as well.  This
includes all images, memos, etc.


Properties:

BinaryOutputFile: String - Output binary file (for blobs).
DataSet: TTable 
Filtered: Boolean - Determines if the OnFilterField procedure is called.
OutputFile: String - Output pascal file.
OverridePath: String 
OverrideTableName: String 
OverWrite: Boolean - If False and file already exists, will prompt to override;
WriteBinaryData: Boolean - Write blobs to binary file.
WriteData: Boolean - Write initial table data to pascal file.
WriteMemoInline: Boolean - Write Memo fields directly into pascal file.

OnFilterField: TXDbf2PasFilter  - procedure(Sender: TObject; fieldName: String; var AllowField: Boolean) of object;
OnRecordWritten: TXDbf2PasRecordWritten - procedure(Sender: TObject; totalRecs, recNo: Integer) of object;


Methods:

Execute;


  
Note:
  To use the component, connect it to a TTable.  Choose an output file.
  If you want data to be written out as well set WriteData to "True".

  Then call the "Execute" method.

  Thats all to it.

  To run this component at design time, Click on the right mouse button
  whilst the component is selected.  Choose Run.