Class TUZTable (unit DBTablUZ)

Inherits from

TTable

--------------------------------------------------------------------------- * TYPES/CLASSSES *---------------------------------------------------------------------------

Constructors


constructor Create(AOwner: TComponent);

--------------------------------------------------------------------------- * just constructor/destructor, in case another descendant should be built *---------------------------------------------------------------------------

----------------------------------------------------------------------------- * TUZTable.



Functions

procedure AddIndex(const Name, Fields: string; Options: TIndexOptions);

--------------------------------------------------------------------------- * the dbASEII+ AddIndex procedure *---------------------------------------------------------------------------

-------------------------- EOP TUZTable.


destructor Destroy;

-------------------------- EOP TUZTable.

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.


function GetIndexName: string;

-------------------------- EOP TUZTable.

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.


function GetTableTypeName: PChar;

-------------------------- EOP TUZTable.

function IsDBaseTable: Boolean;

----------------------------------------------------------------------------- * TUZTable.

procedure SetIndex(const Value: string; { must to get our GetIndexParams prac called } FieldsIndex: Boolean);

is private in TTable but needed

-------------------------- EOP TUZTable.


procedure SetIndexName(const Value: string);

-------------------------- EOP TUZTable.

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


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