| Class TUZTable (unit DBTablUZ) |
TTable
--------------------------------------------------------------------------- * TYPES/CLASSSES *---------------------------------------------------------------------------
| Constructors |
constructor Create(AOwner: TComponent);----------------------------------------------------------------------------- * TUZTable.
| Functions |
procedure AddIndex(const Name, Fields: string; Options: TIndexOptions);-------------------------- EOP TUZTable.
destructor Destroy;
procedure EncodeIndexDesc(var IndexDesc: IDXDesc; { THIS IS WHERE THE CHAGES ARE !! }
const Name, Fields: string;
Options: TIndexOptions);----------------------------------------------------------------------------- * TUZTable.
function GetIndexName: string;
procedure GetIndexParams(const IndexName: string; { THIS IS WHERE THE CHAGES ARE !! }
FieldsIndex: Boolean; { is private in TTable but needed }
PIndexName, PIndexTag: PChar);-------------------------- EOP TUZTable.
function GetTableTypeName: PChar;
function IsDBaseTable: Boolean;
procedure SetIndex(const Value: string; { must to get our GetIndexParams prac called }
FieldsIndex: Boolean);-------------------------- EOP TUZTable.
procedure SetIndexName(const Value: string);| Properties |
property IndexName : string| Events |
| Variables |
FFieldsIndex : Boolean;
FIndexName : TIndexName;| Constructors |
constructor Create(AOwner: TComponent);--------------------------------------------------------------------------- * 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 |
procedure AddIndex(const Name, Fields: string; Options: TIndexOptions);--------------------------------------------------------------------------- * the dbASEII+ AddIndex procedure *---------------------------------------------------------------------------
-------------------------- EOP TUZTable.Create -------------------------------
destructor Destroy;-------------------------- EOP TUZTable.Create -------------------------------
procedure EncodeIndexDesc(var IndexDesc: IDXDesc; { THIS IS WHERE THE CHAGES ARE !! }
const Name, Fields: string;
Options: TIndexOptions);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: *-----------------------------------------------------------------------------
function GetIndexName: string;-------------------------- 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: *-----------------------------------------------------------------------------
procedure GetIndexParams(const IndexName: string; { THIS IS WHERE THE CHAGES ARE !! }
FieldsIndex: Boolean; { is private in TTable but needed }
PIndexName, PIndexTag: PChar);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) *-----------------------------------------------------------------------------
function GetTableTypeName: PChar;-------------------------- EOP TUZTable.GetIndexParams -----------------------
function IsDBaseTable: Boolean;----------------------------------------------------------------------------- * 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 *-----------------------------------------------------------------------------
procedure SetIndex(const Value: string; { must to get our GetIndexParams prac called }
FieldsIndex: Boolean);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: *-----------------------------------------------------------------------------
procedure SetIndexName(const Value: string);-------------------------- 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 |
property IndexName : string--------------------------------------------------------------------------- * just insert our property to get things called here, nothing new *---------------------------------------------------------------------------
| Events |
| Variables |
FFieldsIndex : Boolean;
FIndexName : TIndexName;is private in TTable but needed