Classe TDb_Methods

Descrição

Hierarquia

Campos

Métodos

Propriedades

Unit

mi.rtl.objects.Methods.db.types.consts.Methods

Declaração

type TDb_Methods = class(TDbConsts)

Descrição

A classe TDb_Methods implementa os método de classe comum a todas as classes de TDB do pacote mi.rtl.db.

Hierarquia

TDbConsts
TDb_Methods

Visão Geral

Métodos

	`constructor Create(aowner:TComponent); Overload; Override;`
	`destructor Destroy; override;`
	`function FExisteCodigo(Var IxF:IndexFile; Const codigo:tString):Boolean;`
	`procedure CreateTAccess;`
	`procedure DestroyTAccess;`
	`function EscrevaTurboError(DatF : DataFile;Const NR : Longint;Error:SmallWord):Boolean;`
	`function TAIOCheck(VAR DatF : DataFile;Const R : LONGINT):Boolean;`
	`function SincronizaPosChave(Var datFIx:IndexFile;Const NrCurrent:Longint; KeyCurrent : TaKeyStr):Boolean;`
	`function GetRec(var DatF : DataFile;Const R : Longint;var Buffer ):Boolean;`
	`function GetRecBlock(VAR DatF : DataFile; Const R : LONGINT; delta:Word;Var BlocksRead:Word ;VAR Buffer ):Boolean;`
	`function _PutRec(var DatF : DataFile;Const R : Longint;var Buffer;Const Transaction_Current : T_TTransaction):Boolean;`
	`function PutRec(var DatF : DataFile;Const R : Longint;var Buffer ):Boolean;`
	`function MakeFile(var DatF : DataFile;Const FName : TFileName;Const RecLen : SmallWord):Integer;`
	`function FMakeFile(Const FileName:PathStr;Const TamArq:Longint):Integer;`
	`function AtualizaDestino(Var RegFonte; Const TamFonte:SmallWord; var RegDestino; Const TamDestino : SmallWord) : BOOLEAN;`
	`function FDelStrBrancos(S:tString):tString;`
	`function FileNameTemp_Ext(const aPath:PathStr;Var NomeArqTemp : PathStr;Extencao : PathStr):Boolean; overload;`
	`function FileNameTemp_Ext(Var NomeArqTemp : PathStr;Extencao : PathStr):Boolean; Overload;`
	`function FileNameTemp(Extencao : PathStr):PathStr;`
	`function FileName_Seq(Const aName:PathStr;Const aExt : PathStr):PathStr;`
	`function IsPortLocal(WPort: tString):Boolean;`
	`function DelFile( Const Nome : TFileName):Boolean;`
	`function SetOkAddRecFirstFree(Const aOkAddRecFirstFree: Boolean):Boolean;`
	`function TestaSePodeAbrirArquivo(Const FName : PathStr): Byte;`
	`function FileShared(Const FName : PathStr) : Boolean;`
	`function FTrocaExtencao(Const NomeArq:TFileName; Extencao:PathStr) : PathStr;`
	`function Ren(NomeFonte,NomeDestino: PathStr) : Boolean;`
	`function OkRecSizeMismatch(Const FName : TFileName;Const RecLenBufferRecord : SmallWord):Boolean;`
	`function ModifyStructurFile(Const FName:TFileName;Const RecLenDest : SmallWord ):Boolean;`
	`function OpenFile(var DatF:DataFile; Const FName : TFileName; Const RecLen:SmallWord; AFileMode:Word ):Integer;`
	`function ReadHeader(VAR DatF : DataFile):Boolean;`
	`function PutFileHeader(VAR DatF : DataFile):Boolean;`
	`function NaoMuDOuHeader(VAR DatF : DataFile) : BOOLEAN;`
	`function MudouHeaderEmMemoria(VAR DatF : DataFile) : BOOLEAN;`
	`function aCloseFile(VAR DatF : DataFile):boolean;`
	`function CloseFile(VAR DatF : DataFile):boolean; Overload;`
	`function CloseFile(VAR DatF : DataFile;OkCondicional:Boolean):boolean; Overload;`
	`function FlushFile(VAR DatF : DataFile):Boolean;`
	`function TraveRegistro(VAR DatF : DataFile; Const R : LONGINT):Boolean;`
	`function DestraveRegistro(Var DatF : DataFile;Const R : Longint):Boolean;`
	`function TraveHeader(VAR DatF : DataFile):Boolean;`
	`function DestraveHeader(VAR DatF : DataFile):Boolean;`
	`function FileSize(VAR DatF : DataFile):Longint; Overload;`
	`procedure NewRec(VAR DatF : DataFile;VAR R : LONGINT );`
	`function AddRec(var DatF : DataFile;var R : Longint;var Buffer ):Boolean;`
	`function DeleteRecord(VAR DatF : DataFile; Const R : LONGINT; Var Buffer ):Boolean;`
	`function DeleteRec(var DatF : DataFile;Const R: Longint):Boolean;`
	`function FileLen(VAR DatF : DataFile) : LONGINT;`
	`function UsedRecs(VAR DatF : DataFile) : LONGINT; Overload;`
	`function UsedRecs(VAR DatF : DataFile;OK_GetHeader : Boolean) : LONGINT; Overload;`
	`function UsedRecs(Var IxF :IndexFile;OK_GetHeaderDoIndice : Boolean) : LONGINT; Overload;`
	`function UsedRecs(Var IxF :IndexFile) : LONGINT; Overload;`
	`function UsedRecs(Const FileName:PathStr) : Longint; Overload;`
	`procedure TaPack(VAR Page : TaPage;Const KeyL : BYTE);`
	`procedure TaUnpack(VAR Page : TaPage; Const KeyL : BYTE);`
	`function Multiplo_Mais_proximo_de_N(Const K,N:Longint): Longint;`
	`function MakeIndex(var IxF : IndexFile;Const FName : TFileName;Const KeyLen,S : byte):Integer;`
	`function FMakeIndex(Const FileName:PathStr;Const RepeteChave,TamChave:Byte):Integer;`
	`procedure LeiaHeaderDoIndice( VAR IxF : IndexFile);`
	`function aCloseIndex(VAR IxF : IndexFile):Boolean;`
	`function CloseIndex(VAR IxF : IndexFile;OkCondicional:Boolean):boolean; Overload;`
	`function CloseIndex(VAR IxF : IndexFile):boolean; Overload;`
	`function FlushIndex(VAR IxF : IndexFile):boolean;`
	`function EraseFile(VAR DatF : DataFile):boolean;`
	`function EraseIndex(VAR IxF : IndexFile):boolean;`
	`function TaGetPage(VAR IxF : IndexFile;Const R : LONGINT;VAR PgPtr : TaPagePtr):boolean;`
	`procedure TaNewPage(VAR IxF : IndexFile; VAR R : LONGINT; VAR PgPtr : TaPagePtr);`
	`procedure TaDeletePage(var IxF : IndexFile; VAR R : LONGINT; VAR PgPtr : TaPagePtr);`
	`procedure ClearKey(VAR IxF : IndexFile);`
	`function NextKey(VAR IxF : IndexFile; VAR DataRecNum : LONGINT; VAR ProcKey ):Boolean;`
	`function PrevKey(var IxF : IndexFile; var DataRecNum : Longint; var ProcKey ):Boolean;`
	`procedure TaXKey(VAR K:TaKeyStr; Const KeyL : BYTE);`
	`function TaCompKeys(Const K1 ,K2; DR1,DR2 : LONGINT; Const Dup : BOOLEAN ) : Shortint;`
	`function TaFindKey(VAR IxF : IndexFile;VAR DataRecNum : LONGINT;VAR ProcKey ):boolean;`
	`function FindKey(var IxF : IndexFile;var DataRecNum : Longint;var ProcKey ):Boolean;`
	`function FindKeyTop(var IxF : IndexFile;var DataRecNum : Longint;var ProcKey ):Boolean;`
	`function SearchKey(var IxF : IndexFile; var DataRecNum : Longint; var ProcKey:TaKeyStr):Boolean;`
	`function SearchKeyTop(var IxF : IndexFile; var DataRecNum : Longint; var ProcKey:TaKeyStr;Const Okequal : Boolean):Boolean;`
	`procedure TaUpdatePage(VAR IxF : IndexFile; VAR R : LONGINT; VAR PgPtr : TaPagePtr; Const Transaction_Current : T_TTransaction);`
	`procedure AddKey_Search_Insert( var IxF : IndexFile; Var PrPgRef1 : LONGINT; VAR PrPgRef2,c : LONGINT; VAR PagePtr1,PagePtr2 : TaPagePtr; VAR ProcItem1, ProcItem2 : TaItem; vAR PassUp, okAddKey : BOOLEAN; Const ProcKey : TaKeyStr; Const DataRecNum : Longint; VAR K,L : SmallInt; Var R : SmallInt );`
	`procedure AddKey_Search_Init_ProcItem1(Const ProcKey : TaKeyStr; Const DataRecNum : Longint; vAR PassUp : BOOLEAN; VAR ProcItem1 : TaItem);`
	`procedure AddKey_Search(var IxF : IndexFile; PrPgRef1 : LONGINT; VAR PrPgRef2,c : LONGINT; VAR PagePtr1,PagePtr2 : TaPagePtr; VAR ProcItem1, ProcItem2 : TaItem; vAR PassUp, okAddKey : BOOLEAN; Const ProcKey : TaKeyStr; Const DataRecNum : Longint; VAR K,L : SmallInt );`
	`function AddKey(var IxF : IndexFile; Const DataRecNum : Longint; Const ProcKey : TaKeyStr):Boolean;`
	`function DeleteKey(var IxF : IndexFile;Const DataRecNum : Longint;var ProcKey:TaKeyStr ):Boolean;`
	`function FGetHeaderDataFile(Const FileName: PathStr;Var Header : TsImagemHeader;Var aFileSize : Longint):Boolean;`
	`function FTamRegDataFile(Const FileName: PathStr):SmallWord;`
	`function NewFileName(FileName,Extencao:PathStr):PathStr;`
	`function FTb(Const FileName:PathStr):PathStr;`
	`function FObj(Const FileName:PathStr):PathStr;`
	`function FIx(Const FileName:PathStr):PathStr;`
	`function FDup(Const FileName:PathStr):PathStr;`
	`procedure AssignDataFile(Var DatF :DataFile; Const aFileName:PathStr; aBaseSize, aRecSize:SmallWord; Const AFileMode: Word; aF :TStream; WTipo : AnsiChar ); Overload;`
	`procedure AssignDataFile(Var DatF :DataFile;Const aFileName:PathStr;aBaseSize,aRecSize:SmallWord); Overload;`
	`procedure AssignIndexFile(Var IxF : IndexFile; Const aFileName : PathStr; aBaseSize, aRecSize : SmallWord); Overload;`
	`function UpperCase(str:AnsiString):AnsiString;`
	`function Lowcase(str:AnsiString):AnsiString;`
	`function Int2str(Const L : LongInt) : tString;`
	`function spc(Const campo:AnsiString;Const tam :Longint):AnsiString;`
	`function SetOkTransaction(Const aOkTransaction : BOOLEAN):BOOLEAN;`
	`function StartTransaction(Const aDelta : SmallWord):Integer; Overload;`
	`function StartTransaction(Const DatF : DataFile ; Var aok_Set_Transaction : Boolean): Integer; Overload;`
	`function COMMIT:Boolean; Overload;`
	`function COMMIT(Const Wok_Set_Transaction : Boolean):Boolean; Overload;`
	`procedure Rollback;`
	`function SetTransaction(const OnOff:Boolean; Var WOK : Boolean ):Boolean; Overload;`
	`function SetTransaction(const OnOff:Boolean; Var WOK, Wok_Set_Transaction:Boolean):Boolean; Overload;`
	`function GetFileName_Transaction(): tString;`
	`function Assign_Transaction(Const aFileName : PathStr):SmallWord;`
	`function TransactionPendant_Error:Boolean;`
	`function TransactionPendant:Boolean;`
	`procedure Truncate(Var DatF: DataFile;NR : LongInt);`
	`procedure CopyFrom(Font_DatF: DataFile ;Var Dest_DatF: DataFile); Overload;`
	`procedure CopyFrom(Font_IxF : IndexFile ;Var Dest_IxF : IndexFile); Overload;`
	`Function Is_TFileOpen(const a_TFile : TStream):Boolean;`

Descrição

Métodos

	`constructor Create(aowner:TComponent); Overload; Override;`

	`destructor Destroy; override;`

	`function FExisteCodigo(Var IxF:IndexFile; Const codigo:tString):Boolean;`

	`procedure CreateTAccess;`

	`procedure DestroyTAccess;`

	`function EscrevaTurboError(DatF : DataFile;Const NR : Longint;Error:SmallWord):Boolean;`

	`function TAIOCheck(VAR DatF : DataFile;Const R : LONGINT):Boolean;`

	`function SincronizaPosChave(Var datFIx:IndexFile;Const NrCurrent:Longint; KeyCurrent : TaKeyStr):Boolean;`

	`function GetRec(var DatF : DataFile;Const R : Longint;var Buffer ):Boolean;`

	`function GetRecBlock(VAR DatF : DataFile; Const R : LONGINT; delta:Word;Var BlocksRead:Word ;VAR Buffer ):Boolean;`

	`function _PutRec(var DatF : DataFile;Const R : Longint;var Buffer;Const Transaction_Current : T_TTransaction):Boolean;`

	`function PutRec(var DatF : DataFile;Const R : Longint;var Buffer ):Boolean;`

	`function MakeFile(var DatF : DataFile;Const FName : TFileName;Const RecLen : SmallWord):Integer;`

	`function FMakeFile(Const FileName:PathStr;Const TamArq:Longint):Integer;`

	`function AtualizaDestino(Var RegFonte; Const TamFonte:SmallWord; var RegDestino; Const TamDestino : SmallWord) : BOOLEAN;`

	`function FDelStrBrancos(S:tString):tString;`

	`function FileNameTemp_Ext(const aPath:PathStr;Var NomeArqTemp : PathStr;Extencao : PathStr):Boolean; overload;`

	`function FileNameTemp_Ext(Var NomeArqTemp : PathStr;Extencao : PathStr):Boolean; Overload;`

	`function FileNameTemp(Extencao : PathStr):PathStr;`

	`function FileName_Seq(Const aName:PathStr;Const aExt : PathStr):PathStr;`

	`function IsPortLocal(WPort: tString):Boolean;`

	`function DelFile( Const Nome : TFileName):Boolean;`

	`function SetOkAddRecFirstFree(Const aOkAddRecFirstFree: Boolean):Boolean;`

	`function TestaSePodeAbrirArquivo(Const FName : PathStr): Byte;`

	`function FileShared(Const FName : PathStr) : Boolean;`

	`function FTrocaExtencao(Const NomeArq:TFileName; Extencao:PathStr) : PathStr;`

	`function Ren(NomeFonte,NomeDestino: PathStr) : Boolean;`

	`function OkRecSizeMismatch(Const FName : TFileName;Const RecLenBufferRecord : SmallWord):Boolean;`

	`function ModifyStructurFile(Const FName:TFileName;Const RecLenDest : SmallWord ):Boolean;`

	`function OpenFile(var DatF:DataFile; Const FName : TFileName; Const RecLen:SmallWord; AFileMode:Word ):Integer;`

	`function ReadHeader(VAR DatF : DataFile):Boolean;`

	`function PutFileHeader(VAR DatF : DataFile):Boolean;`

	`function NaoMuDOuHeader(VAR DatF : DataFile) : BOOLEAN;`

	`function MudouHeaderEmMemoria(VAR DatF : DataFile) : BOOLEAN;`

	`function aCloseFile(VAR DatF : DataFile):boolean;`

	`function CloseFile(VAR DatF : DataFile):boolean; Overload;`

	`function CloseFile(VAR DatF : DataFile;OkCondicional:Boolean):boolean; Overload;`

	`function FlushFile(VAR DatF : DataFile):Boolean;`

	`function TraveRegistro(VAR DatF : DataFile; Const R : LONGINT):Boolean;`

	`function DestraveRegistro(Var DatF : DataFile;Const R : Longint):Boolean;`

	`function TraveHeader(VAR DatF : DataFile):Boolean;`

	`function DestraveHeader(VAR DatF : DataFile):Boolean;`

	`function FileSize(VAR DatF : DataFile):Longint; Overload;`

	`procedure NewRec(VAR DatF : DataFile;VAR R : LONGINT );`

	`function AddRec(var DatF : DataFile;var R : Longint;var Buffer ):Boolean;`

	`function DeleteRecord(VAR DatF : DataFile; Const R : LONGINT; Var Buffer ):Boolean;`

	`function DeleteRec(var DatF : DataFile;Const R: Longint):Boolean;`

	`function FileLen(VAR DatF : DataFile) : LONGINT;`

	`function UsedRecs(VAR DatF : DataFile) : LONGINT; Overload;`

	`function UsedRecs(VAR DatF : DataFile;OK_GetHeader : Boolean) : LONGINT; Overload;`

	`function UsedRecs(Var IxF :IndexFile;OK_GetHeaderDoIndice : Boolean) : LONGINT; Overload;`

	`function UsedRecs(Var IxF :IndexFile) : LONGINT; Overload;`

	`function UsedRecs(Const FileName:PathStr) : Longint; Overload;`

	`procedure TaPack(VAR Page : TaPage;Const KeyL : BYTE);`

	`procedure TaUnpack(VAR Page : TaPage; Const KeyL : BYTE);`

	`function Multiplo_Mais_proximo_de_N(Const K,N:Longint): Longint;`

	`function MakeIndex(var IxF : IndexFile;Const FName : TFileName;Const KeyLen,S : byte):Integer;`

	`function FMakeIndex(Const FileName:PathStr;Const RepeteChave,TamChave:Byte):Integer;`

	`procedure LeiaHeaderDoIndice( VAR IxF : IndexFile);`

	`function aCloseIndex(VAR IxF : IndexFile):Boolean;`

	`function CloseIndex(VAR IxF : IndexFile;OkCondicional:Boolean):boolean; Overload;`

	`function CloseIndex(VAR IxF : IndexFile):boolean; Overload;`

	`function FlushIndex(VAR IxF : IndexFile):boolean;`

	`function EraseFile(VAR DatF : DataFile):boolean;`

	`function EraseIndex(VAR IxF : IndexFile):boolean;`

	`function TaGetPage(VAR IxF : IndexFile;Const R : LONGINT;VAR PgPtr : TaPagePtr):boolean;`

	`procedure TaNewPage(VAR IxF : IndexFile; VAR R : LONGINT; VAR PgPtr : TaPagePtr);`

	`procedure TaDeletePage(var IxF : IndexFile; VAR R : LONGINT; VAR PgPtr : TaPagePtr);`

	`procedure ClearKey(VAR IxF : IndexFile);`

	`function NextKey(VAR IxF : IndexFile; VAR DataRecNum : LONGINT; VAR ProcKey ):Boolean;`

	`function PrevKey(var IxF : IndexFile; var DataRecNum : Longint; var ProcKey ):Boolean;`

	`procedure TaXKey(VAR K:TaKeyStr; Const KeyL : BYTE);`

	`function TaCompKeys(Const K1 ,K2; DR1,DR2 : LONGINT; Const Dup : BOOLEAN ) : Shortint;`

	`function TaFindKey(VAR IxF : IndexFile;VAR DataRecNum : LONGINT;VAR ProcKey ):boolean;`

	`function FindKey(var IxF : IndexFile;var DataRecNum : Longint;var ProcKey ):Boolean;`

	`function FindKeyTop(var IxF : IndexFile;var DataRecNum : Longint;var ProcKey ):Boolean;`

	`function SearchKey(var IxF : IndexFile; var DataRecNum : Longint; var ProcKey:TaKeyStr):Boolean;`

	`function SearchKeyTop(var IxF : IndexFile; var DataRecNum : Longint; var ProcKey:TaKeyStr;Const Okequal : Boolean):Boolean;`

	`procedure TaUpdatePage(VAR IxF : IndexFile; VAR R : LONGINT; VAR PgPtr : TaPagePtr; Const Transaction_Current : T_TTransaction);`

	`procedure AddKey_Search_Insert( var IxF : IndexFile; Var PrPgRef1 : LONGINT; VAR PrPgRef2,c : LONGINT; VAR PagePtr1,PagePtr2 : TaPagePtr; VAR ProcItem1, ProcItem2 : TaItem; vAR PassUp, okAddKey : BOOLEAN; Const ProcKey : TaKeyStr; Const DataRecNum : Longint; VAR K,L : SmallInt; Var R : SmallInt );`

	`procedure AddKey_Search_Init_ProcItem1(Const ProcKey : TaKeyStr; Const DataRecNum : Longint; vAR PassUp : BOOLEAN; VAR ProcItem1 : TaItem);`

	`procedure AddKey_Search(var IxF : IndexFile; PrPgRef1 : LONGINT; VAR PrPgRef2,c : LONGINT; VAR PagePtr1,PagePtr2 : TaPagePtr; VAR ProcItem1, ProcItem2 : TaItem; vAR PassUp, okAddKey : BOOLEAN; Const ProcKey : TaKeyStr; Const DataRecNum : Longint; VAR K,L : SmallInt );`

	`function AddKey(var IxF : IndexFile; Const DataRecNum : Longint; Const ProcKey : TaKeyStr):Boolean;`

	`function DeleteKey(var IxF : IndexFile;Const DataRecNum : Longint;var ProcKey:TaKeyStr ):Boolean;`

	`function FGetHeaderDataFile(Const FileName: PathStr;Var Header : TsImagemHeader;Var aFileSize : Longint):Boolean;`

	`function FTamRegDataFile(Const FileName: PathStr):SmallWord;`

	`function NewFileName(FileName,Extencao:PathStr):PathStr;`

	`function FTb(Const FileName:PathStr):PathStr;`

	`function FObj(Const FileName:PathStr):PathStr;`

	`function FIx(Const FileName:PathStr):PathStr;`

	`function FDup(Const FileName:PathStr):PathStr;`

	`procedure AssignDataFile(Var DatF :DataFile; Const aFileName:PathStr; aBaseSize, aRecSize:SmallWord; Const AFileMode: Word; aF :TStream; WTipo : AnsiChar ); Overload;`

	`procedure AssignDataFile(Var DatF :DataFile;Const aFileName:PathStr;aBaseSize,aRecSize:SmallWord); Overload;`

	`procedure AssignIndexFile(Var IxF : IndexFile; Const aFileName : PathStr; aBaseSize, aRecSize : SmallWord); Overload;`

	`function UpperCase(str:AnsiString):AnsiString;`

	`function Lowcase(str:AnsiString):AnsiString;`

	`function Int2str(Const L : LongInt) : tString;`

	`function spc(Const campo:AnsiString;Const tam :Longint):AnsiString;`

	`function SetOkTransaction(Const aOkTransaction : BOOLEAN):BOOLEAN;`

	`function StartTransaction(Const aDelta : SmallWord):Integer; Overload;`

	`function StartTransaction(Const DatF : DataFile ; Var aok_Set_Transaction : Boolean): Integer; Overload;`

	`function COMMIT:Boolean; Overload;`

	`function COMMIT(Const Wok_Set_Transaction : Boolean):Boolean; Overload;`

	`procedure Rollback;`

	`function SetTransaction(const OnOff:Boolean; Var WOK : Boolean ):Boolean; Overload;`

	`function SetTransaction(const OnOff:Boolean; Var WOK, Wok_Set_Transaction:Boolean):Boolean; Overload;`

	`function GetFileName_Transaction(): tString;`

	`function Assign_Transaction(Const aFileName : PathStr):SmallWord;`

	`function TransactionPendant_Error:Boolean;`

	`function TransactionPendant:Boolean;`

	`procedure Truncate(Var DatF: DataFile;NR : LongInt);`

	`procedure CopyFrom(Font_DatF: DataFile ;Var Dest_DatF: DataFile); Overload;`

	`procedure CopyFrom(Font_IxF : IndexFile ;Var Dest_IxF : IndexFile); Overload;`

	`Function Is_TFileOpen(const a_TFile : TStream):Boolean;`

Gerado por PasDoc 0.16.0.