Class TUZTable (unit DBTablUZ) |
TTable
--------------------------------------------------------------------------- * TYPES/CLASSSES *---------------------------------------------------------------------------
Constructors |
----------------------------------------------------------------------------- * TUZTable.
Functions |
-------------------------- EOP TUZTable.
----------------------------------------------------------------------------- * TUZTable.
-------------------------- EOP TUZTable.
-------------------------- EOP TUZTable.
Properties |
Events |
Variables |
Constructors |
--------------------------------------------------------------------------- * just constructor/destructor, in case another descendant should be built *---------------------------------------------------------------------------
----------------------------------------------------------------------------- * TUZTable.CREATE: NOTHING changed * just inherited cerate is called *----------------------------------------------------------------------------- * params: * name type meaning * AOwner TComponent Owner * value: *-----------------------------------------------------------------------------
Functions |
--------------------------------------------------------------------------- * the dbASEII+ AddIndex procedure *---------------------------------------------------------------------------
-------------------------- EOP TUZTable.Create -------------------------------
-------------------------- EOP TUZTable.Create -------------------------------
is private in TTable but needed } {--------------------------------------------------------------------------- * PROTECTED members: we just move the TTable's private member we use, to * ensure, that deriving THIS class is easier *---------------------------------------------------------------------------
----------------------------------------------------------------------------- * TUZTable.EncodeIndexDesc: CHANGED, build up the index-descriptor *----------------------------------------------------------------------------- * params: * name type meaning * IndexDesc var IDXDesc index descriptor, filled on return * Name const string index(file)name * Fields string index fields * Options TIndexOptions see DBTABLES.PAS * value: *-----------------------------------------------------------------------------
-------------------------- EOP TUZTable.EndcodeIndexDesc ---------------------} {----------------------------------------------------------------------------- * TUZTable.GetIndexName: nothing changed, just needed for the parent's method * is private, and we'll have to have this for our * property *----------------------------------------------------------------------------- * params: * name type meaning * value: *-----------------------------------------------------------------------------
must to get our IndexName property called
-------------------------- EOP TUZTable.GetIndexName -------------------------} {----------------------------------------------------------------------------- * TUZTable.GetIndexParams: CHANGED * to be dBASE III+ aware *----------------------------------------------------------------------------- * input: * name type meaning * IndexName string index(file)name * FieldsIndex Boolean TRUE = index to be faound by fields * ouput: * PIndexName PChar the ready to use index(file)name * PIndexTag PChar the ready to use index-tag (if one) *-----------------------------------------------------------------------------
-------------------------- EOP TUZTable.GetIndexParams -----------------------
----------------------------------------------------------------------------- * TUZTable.IsDBaseTable: just a copy from DBTables.PAS, determines, whether * the object is a dBASE-table *----------------------------------------------------------------------------- * params: * name type meaning * value: * Boolean TRUE = is a dBASE-table (II/III+/IV) * FALSE= not a dABSE-table *-----------------------------------------------------------------------------
is private in TTable but needed
-------------------------- EOP TUZTable.IsDBaseTable -------------------------} {----------------------------------------------------------------------------- * TUZTable.SetIndex: NOTHING changed * but added, for parnet's equal method is priovate, and * we got to have the code here to be called and use our * private variables here *----------------------------------------------------------------------------- * params: * name type meaning * const Value string new index' name * FieldsIndex Boolean TRUE = it's an index based on fieldnames * FALSE= it's an index-file * value: *-----------------------------------------------------------------------------
-------------------------- EOP TUZTable.SetIndex -----------------------------} {----------------------------------------------------------------------------- * TUZTable.SetIndexName: nothing changed, just needed for the parent's method * is private, and we'll have to have this for our * property and to get our code called *----------------------------------------------------------------------------- * params: * name type meaning * Value cionst string new index(file)'s name * value: *-----------------------------------------------------------------------------
Properties |
--------------------------------------------------------------------------- * just insert our property to get things called here, nothing new *---------------------------------------------------------------------------
Events |
Variables |
is private in TTable but needed