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