Classe TTb__Access

Unit

Declaração

type TTb__Access = class(TTb__Access_consts)

Descrição

No description available, ancestor TTb__Access_consts description follows
No description available, ancestor TTb__Access_types description follows
No description available, ancestor TTb_Access description follows
No description available, ancestor TTb_Access_consts description follows

A classe TTb_Access_consts é usada para declarar todas as constantes da classe TTb_Access

Hierarquia

Visão Geral

Métodos

Public class function StartTransaction(Const DatF : TMI_DataFile ; Var aok_Set_Transaction : Boolean): Integer; Overload;
Public class function FileSize(Var MI_DataFile : TMI_DataFile):Longint; Overload;
Public class Procedure Init_MI_DataFile(Var MI_DataFile : TMI_DataFile; NomeArquivo : PathStr; tamanhoRegistro : SmallWord; NumeroDeArqIndice : byte ); Overload;
Public class Procedure Init_MI_DataFile(Var MI_DataFile : TMI_DataFile; NomeArquivo : PathStr; tamanhoRegistro : TTb_Access.SmallWord; NumeroDeArqIndice : byte; wOkTemporario : Boolean); Overload;
Public class Procedure Init_IxF(Const Indice : Byte; Var IxF : TMI_IndexFile; Const CNomeArqIndice : PathStr; Const CRepeteChave : Byte; Const StrCondicao : tString );
Public class function MakeFile(Const FileName:PathStr;Const TamArq:Longint):Integer; overload;
Public class function MakeFile(var DatF : TMI_DataFile ):Integer; overload;
Public class function MakeIndex(Const FileName:PathStr;Const RepeteChave,TamChave:Byte):Integer; overload;
Public class function MakeIndex(var IxF : TMI_IndexFile):Integer; Overload;
Public class function OpenFile(var DatF : TMI_DataFile;OkCreate : Boolean):Integer; Overload;
Public class function OpenFile(var DatF : TMI_DataFile ):Integer; Overload;
Public class function OpenIndex(var IxF : TMI_IndexFile):Integer; Overload;
Public class function CloseFile(var DatF : TMI_DataFile ):Integer; overload;
Public class function CloseIndex(var IxF : TMI_IndexFile):Boolean; overload;
Public class Procedure MakeArq(VAR DatF : TMI_DataFile; VAR Buff );
Public class Procedure OpenArq(VAR DatF : TMI_DataFile; VAR Buff );
Public class Procedure AbreArqSemHeader(VAR Arqdados:TMI_DataFile ; VAR Buff );
Public class Procedure CloseArqSemHeader(VAR DatF : TMI_DataFile);
Public class function GetAddRec(Const Title : tString; Const NomeFonte:PathStr; Var RegFonte; Const TamFonte : SmallWord; Const NomeDestino : PathStr; Var regDestino; Const TamDestino : SmallWord; Const AtualizaDestino : TFuncGetAddRec; Const OkMakeFile :Boolean) : Boolean;
Public class function ModifyStructurFile(Const FName:FileName;Const RecLenDest : SmallWord ):Boolean; override;
Public class function PrimeiroLivre(VAR DatF: TMI_DataFile) : LONGINT;
Public class function TraveArq(Var DatF : TMI_DataFile):Boolean;
Public class function DestraveArq(Var DatF : TMI_DataFile):Boolean;
Public class function UsedRecs(var DatF : TMI_DataFile ) : Longint; Overload;
Public class function GetRec(var DatF : TMI_DataFile ;Const R : Longint;var Buffer ):Boolean; overload;
Public class function PutRec(var DatF : TMI_DataFile ;Const R : Longint;var Buffer ):Boolean; overload;
Public class function AddRec(var DatF : TMI_DataFile ;var R : Longint;var Buffer ):Boolean; overload;
Public class function DeleteRec(var DatF : TMI_DataFile ;Const R : Longint):Boolean; overload;
Public class function FileLen(var DatF : TMI_DataFile ) : Longint; overload;
Public class function MakeIndex(var IxF : TMI_IndexFile;Exclusivo:Boolean ):Integer; Overload;
Public class function OpenIndex(var IxF : TMI_IndexFile;Exclusivo :Boolean ):Integer; Overload;
Public class function OpenIndex(var IxF : TMI_IndexFile;Exclusivo,OkCreate:Boolean ):Integer; Overload;
Public class function ClearKey(var IxF : TMI_IndexFile) :Boolean; overload;
Public class function NextKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; var ProcKey ):Boolean; overload;
Public class function PrevKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; var ProcKey ):Boolean; overload;
Public class function FindKeyTop(var IxF : TMI_IndexFile ; var ProcDatRef : Longint; var ProcKey ):Boolean; overload;
Public class function FindKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; var ProcKey ):Boolean; overload;
Public class function SearchKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; var ProcKey:TaKeyStr ):Boolean; overload;
Public class function SearchKeyTop(var IxF : TMI_IndexFile ; var ProcDatRef : Longint; var ProcKey :TaKeyStr; Const Okequal : Boolean ):Boolean; overload;
Public class function AddKey(var IxF : TMI_IndexFile; Const ProcDatRef : Longint; Const ProcKey : TaKeyStr ):Boolean; overload;
Public class function DeleteKey(var IxF : TMI_IndexFile; Const ProcDatRef : Longint; Const ProcKey : TaKeyStr):Boolean; overload;
Public class procedure FlushFile(var DatF :TMI_DataFile ); overload;
Public class procedure FlushIndex(var IxF : TMI_IndexFile ); overload;
Public class function Seek(Var DatF : TMI_DataFile;Const R : Longint ):SmallInt; overload;
Public class Procedure CloseFilesOpens; virtual;
Public class Procedure MyDestroyMemory;
Public class Procedure MyCreateMemory;
Public class Procedure MyDestroyMemorySemVideo;
Public class Procedure MyCreateMemorySemVideo;
Public class function ExecCommand(FileName:PathStr;Flags: Longint;aExecAsync : Longint): Byte; Overload;
Public class function ExecCommand(FileName:PathStr;Flags: Longint): Byte; Overload;
Public class function ExecDos(Const Path: PathStr; Const ComLine: ComStr): Byte;
Public class function FindKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; ProcKey : TaKeyStr):Boolean ; overload;
Public class function AdicioneChave(var IxF : TMI_IndexFile ; Const ProcDatRef : Longint; Const ProcKey : TaKeyStr):Boolean;
Public class function EliminaChave(var IxF : TMI_IndexFile ; Const ProcDatRef : Longint; Const ProcKey : TaKeyStr):Boolean;
Public class function NomeDaEstacao:tString;
Public class function ValidFileName(Const Name : PathStr):Byte;
Public class function FConcatNomeArq(Nome,Extencao:PathStr) : PathStr;
Public class function CriaArqTemp(Var ArqF : TMI_DataFile; Const TamArqTemp : SmallWord; Const NumeroDeIndice : Byte ):Boolean;
Public class function CriaArqTempI(Var IxF: TMI_IndexFile; Const RepeteChave : Byte; Const EndChaveNoRegistro: tString):Boolean;
Public class function EspacoEmDisco(NomeFonte,DriveDestino:PathStr) :boolean;
Public class function TTraveRegistro(Var DatF : TMI_DataFile;Const R : Longint):Boolean;
Public class function TDestraveRegistro(Var DatF : TMI_DataFile;Const R : Longint):Boolean;
Public class function FPackDataFile(NomeArq :PathStr):Boolean;
Public class function FLeiaGrave(Const MsgStr : tString; Const NomeArqDados : PathStr; Var RegBuff ; Const TamRegBuff : SmallWord; Const OkFunc : TipoFuncao) : Boolean;
Public class function LeiaGrave(Const MsgStr : tString; Var ArqDados : TMI_DataFile; Var RegBuff ; Const OkFunc : TipoFuncao) : Boolean;
Public class function FLeieEGraveRegistro(Const NomeFonte:PathStr; Var RegFonte; Const TamFonte : SmallWord; Const NomeDestino : PathStr; Var regDestino; Const TamDestino : SmallWord; AtualizaDestino : TipoFuncao; Const OkMakeFile :Boolean) : Boolean;
Public class function StrDataEmQueFoiAlterado(Const NomeArquivo :PathStr) : tString;
Public class function StrDateFile(Const NomeArquivo : PathStr;Const Ch:AnsiChar) : tString;
Public class function CreateLst:Boolean;
Public class Procedure DestroyLst;
Public class function GeraSequencia(Var ArqI:IndexFile) :Longint;
Public class function TestaAberturaDeArquivo(MaxFile : Byte; Var NumMaxPossivel:Byte ): Boolean;
Public class function AssingLst(Const WopcaoRedireciona : AnsiChar; Const aNomeRedireciona : PathStr):Boolean;
Public class procedure redirecionaParaNul;
Public class Procedure Create;
Public class Procedure Destroy;

Descrição

Métodos

Public class function StartTransaction(Const DatF : TMI_DataFile ; Var aok_Set_Transaction : Boolean): Integer; Overload;
 
Public class function FileSize(Var MI_DataFile : TMI_DataFile):Longint; Overload;
 
Public class Procedure Init_MI_DataFile(Var MI_DataFile : TMI_DataFile; NomeArquivo : PathStr; tamanhoRegistro : SmallWord; NumeroDeArqIndice : byte ); Overload;
 
Public class Procedure Init_MI_DataFile(Var MI_DataFile : TMI_DataFile; NomeArquivo : PathStr; tamanhoRegistro : TTb_Access.SmallWord; NumeroDeArqIndice : byte; wOkTemporario : Boolean); Overload;
 
Public class Procedure Init_IxF(Const Indice : Byte; Var IxF : TMI_IndexFile; Const CNomeArqIndice : PathStr; Const CRepeteChave : Byte; Const StrCondicao : tString );
 
Public class function MakeFile(Const FileName:PathStr;Const TamArq:Longint):Integer; overload;
 
Public class function MakeFile(var DatF : TMI_DataFile ):Integer; overload;
 
Public class function MakeIndex(Const FileName:PathStr;Const RepeteChave,TamChave:Byte):Integer; overload;
 
Public class function MakeIndex(var IxF : TMI_IndexFile):Integer; Overload;
 
Public class function OpenFile(var DatF : TMI_DataFile;OkCreate : Boolean):Integer; Overload;
 
Public class function OpenFile(var DatF : TMI_DataFile ):Integer; Overload;
 
Public class function OpenIndex(var IxF : TMI_IndexFile):Integer; Overload;
 
Public class function CloseFile(var DatF : TMI_DataFile ):Integer; overload;
 
Public class function CloseIndex(var IxF : TMI_IndexFile):Boolean; overload;
 
Public class Procedure MakeArq(VAR DatF : TMI_DataFile; VAR Buff );

A class procedure MakeArq é usado criar aquivo sem o registro 0

Public class Procedure OpenArq(VAR DatF : TMI_DataFile; VAR Buff );

A class procedure OpenArq é usado abrir aquivo sem o registro 0

Public class Procedure AbreArqSemHeader(VAR Arqdados:TMI_DataFile ; VAR Buff );
 
Public class Procedure CloseArqSemHeader(VAR DatF : TMI_DataFile);
 
Public class function GetAddRec(Const Title : tString; Const NomeFonte:PathStr; Var RegFonte; Const TamFonte : SmallWord; Const NomeDestino : PathStr; Var regDestino; Const TamDestino : SmallWord; Const AtualizaDestino : TFuncGetAddRec; Const OkMakeFile :Boolean) : Boolean;
 
Public class function ModifyStructurFile(Const FName:FileName;Const RecLenDest : SmallWord ):Boolean; override;
 
Public class function PrimeiroLivre(VAR DatF: TMI_DataFile) : LONGINT;
 
Public class function TraveArq(Var DatF : TMI_DataFile):Boolean;
 
Public class function DestraveArq(Var DatF : TMI_DataFile):Boolean;
 
Public class function UsedRecs(var DatF : TMI_DataFile ) : Longint; Overload;
 
Public class function GetRec(var DatF : TMI_DataFile ;Const R : Longint;var Buffer ):Boolean; overload;
 
Public class function PutRec(var DatF : TMI_DataFile ;Const R : Longint;var Buffer ):Boolean; overload;
 
Public class function AddRec(var DatF : TMI_DataFile ;var R : Longint;var Buffer ):Boolean; overload;
 
Public class function DeleteRec(var DatF : TMI_DataFile ;Const R : Longint):Boolean; overload;
 
Public class function FileLen(var DatF : TMI_DataFile ) : Longint; overload;
 
Public class function MakeIndex(var IxF : TMI_IndexFile;Exclusivo:Boolean ):Integer; Overload;
 
Public class function OpenIndex(var IxF : TMI_IndexFile;Exclusivo :Boolean ):Integer; Overload;
 
Public class function OpenIndex(var IxF : TMI_IndexFile;Exclusivo,OkCreate:Boolean ):Integer; Overload;
 
Public class function ClearKey(var IxF : TMI_IndexFile) :Boolean; overload;
 
Public class function NextKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; var ProcKey ):Boolean; overload;
 
Public class function PrevKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; var ProcKey ):Boolean; overload;
 
Public class function FindKeyTop(var IxF : TMI_IndexFile ; var ProcDatRef : Longint; var ProcKey ):Boolean; overload;
 
Public class function FindKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; var ProcKey ):Boolean; overload;
 
Public class function SearchKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; var ProcKey:TaKeyStr ):Boolean; overload;
 
Public class function SearchKeyTop(var IxF : TMI_IndexFile ; var ProcDatRef : Longint; var ProcKey :TaKeyStr; Const Okequal : Boolean ):Boolean; overload;
 
Public class function AddKey(var IxF : TMI_IndexFile; Const ProcDatRef : Longint; Const ProcKey : TaKeyStr ):Boolean; overload;
 
Public class function DeleteKey(var IxF : TMI_IndexFile; Const ProcDatRef : Longint; Const ProcKey : TaKeyStr):Boolean; overload;
 
Public class procedure FlushFile(var DatF :TMI_DataFile ); overload;
 
Public class procedure FlushIndex(var IxF : TMI_IndexFile ); overload;
 
Public class function Seek(Var DatF : TMI_DataFile;Const R : Longint ):SmallInt; overload;
 
Public class Procedure CloseFilesOpens; virtual;
 
Public class Procedure MyDestroyMemory;
 
Public class Procedure MyCreateMemory;
 
Public class Procedure MyDestroyMemorySemVideo;
 
Public class Procedure MyCreateMemorySemVideo;
 
Public class function ExecCommand(FileName:PathStr;Flags: Longint;aExecAsync : Longint): Byte; Overload;
 
Public class function ExecCommand(FileName:PathStr;Flags: Longint): Byte; Overload;
 
Public class function ExecDos(Const Path: PathStr; Const ComLine: ComStr): Byte;

A classe método ExecDos executa um programa externo de form assíncrona.

  • EXEMPLO

    
    ExecDos('/usr/bin/gnome-terminal','ls');

Public class function FindKey(var IxF : TMI_IndexFile; var ProcDatRef : Longint; ProcKey : TaKeyStr):Boolean ; overload;
 
Public class function AdicioneChave(var IxF : TMI_IndexFile ; Const ProcDatRef : Longint; Const ProcKey : TaKeyStr):Boolean;
 
Public class function EliminaChave(var IxF : TMI_IndexFile ; Const ProcDatRef : Longint; Const ProcKey : TaKeyStr):Boolean;
 
Public class function NomeDaEstacao:tString;
 
Public class function ValidFileName(Const Name : PathStr):Byte;
 
Public class function FConcatNomeArq(Nome,Extencao:PathStr) : PathStr;
 
Public class function CriaArqTemp(Var ArqF : TMI_DataFile; Const TamArqTemp : SmallWord; Const NumeroDeIndice : Byte ):Boolean;
 
Public class function CriaArqTempI(Var IxF: TMI_IndexFile; Const RepeteChave : Byte; Const EndChaveNoRegistro: tString):Boolean;
 
Public class function EspacoEmDisco(NomeFonte,DriveDestino:PathStr) :boolean;
 
Public class function TTraveRegistro(Var DatF : TMI_DataFile;Const R : Longint):Boolean;
 
Public class function TDestraveRegistro(Var DatF : TMI_DataFile;Const R : Longint):Boolean;
 
Public class function FPackDataFile(NomeArq :PathStr):Boolean;
 
Public class function FLeiaGrave(Const MsgStr : tString; Const NomeArqDados : PathStr; Var RegBuff ; Const TamRegBuff : SmallWord; Const OkFunc : TipoFuncao) : Boolean;
 
Public class function LeiaGrave(Const MsgStr : tString; Var ArqDados : TMI_DataFile; Var RegBuff ; Const OkFunc : TipoFuncao) : Boolean;
 
Public class function FLeieEGraveRegistro(Const NomeFonte:PathStr; Var RegFonte; Const TamFonte : SmallWord; Const NomeDestino : PathStr; Var regDestino; Const TamDestino : SmallWord; AtualizaDestino : TipoFuncao; Const OkMakeFile :Boolean) : Boolean;
 
Public class function StrDataEmQueFoiAlterado(Const NomeArquivo :PathStr) : tString;
 
Public class function StrDateFile(Const NomeArquivo : PathStr;Const Ch:AnsiChar) : tString;
 
Public class function CreateLst:Boolean;
 
Public class Procedure DestroyLst;
 
Public class function GeraSequencia(Var ArqI:IndexFile) :Longint;
 
Public class function TestaAberturaDeArquivo(MaxFile : Byte; Var NumMaxPossivel:Byte ): Boolean;
 
Public class function AssingLst(Const WopcaoRedireciona : AnsiChar; Const aNomeRedireciona : PathStr):Boolean;
 
Public class procedure redirecionaParaNul;
 
Public class Procedure Create;
 
Public class Procedure Destroy;
 

Gerado por PasDoc 0.16.0.