absdecutil.hpp

Absolute Database 5.12 src. Absolute Database lets you forget the Borland Database Engine (BDE). Th

	#pragma option push -w-inl
	/* virtual class method */ virtual char * __fastcall CharTable() { return CharTable(__classid(TStringFormat_HEX)); }
	#pragma option pop
	/*         class method */ static char * __fastcall CharTable(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TStringFormat_HEX(void) : TStringFormat() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TStringFormat_HEX(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStringFormat_HEXL;
class PASCALIMPLEMENTATION TStringFormat_HEXL : public TStringFormat_HEX 
{
	typedef TStringFormat_HEX inherited;
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall Name() { return Name(__classid(TStringFormat_HEXL)); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall Name(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual int __fastcall Format() { return Format(__classid(TStringFormat_HEXL)); }
	#pragma option pop
	/*         class method */ static int __fastcall Format(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual char * __fastcall CharTable() { return CharTable(__classid(TStringFormat_HEXL)); }
	#pragma option pop
	/*         class method */ static char * __fastcall CharTable(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TStringFormat_HEXL(void) : TStringFormat_HEX() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TStringFormat_HEXL(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStringFormat_MIME64;
class PASCALIMPLEMENTATION TStringFormat_MIME64 : public TStringFormat_HEX 
{
	typedef TStringFormat_HEX inherited;
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall ToStr(char * Value, int Len) { return ToStr(__classid(TStringFormat_MIME64), Value, Len); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall ToStr(TMetaClass* vmt, char * Value, int Len);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall StrTo(char * Value, int Len) { return StrTo(__classid(TStringFormat_MIME64), Value, Len); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall StrTo(TMetaClass* vmt, char * Value, int Len);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall Name() { return Name(__classid(TStringFormat_MIME64)); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall Name(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual int __fastcall Format() { return Format(__classid(TStringFormat_MIME64)); }
	#pragma option pop
	/*         class method */ static int __fastcall Format(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual char * __fastcall CharTable() { return CharTable(__classid(TStringFormat_MIME64)); }
	#pragma option pop
	/*         class method */ static char * __fastcall CharTable(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TStringFormat_MIME64(void) : TStringFormat_HEX() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TStringFormat_MIME64(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStringFormat_UU;
class PASCALIMPLEMENTATION TStringFormat_UU : public TStringFormat 
{
	typedef TStringFormat inherited;
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall ToStr(char * Value, int Len) { return ToStr(__classid(TStringFormat_UU), Value, Len); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall ToStr(TMetaClass* vmt, char * Value, int Len);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall StrTo(char * Value, int Len) { return StrTo(__classid(TStringFormat_UU), Value, Len); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall StrTo(TMetaClass* vmt, char * Value, int Len);
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall Name() { return Name(__classid(TStringFormat_UU)); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall Name(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual int __fastcall Format() { return Format(__classid(TStringFormat_UU)); }
	#pragma option pop
	/*         class method */ static int __fastcall Format(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual bool __fastcall IsValid(char * Value, int Len, bool ToStr) { return IsValid(__classid(TStringFormat_UU), Value, Len, ToStr); }
	#pragma option pop
	/*         class method */ static bool __fastcall IsValid(TMetaClass* vmt, char * Value, int Len, bool ToStr);
	#pragma option push -w-inl
	/* virtual class method */ virtual char * __fastcall CharTable() { return CharTable(__classid(TStringFormat_UU)); }
	#pragma option pop
	/*         class method */ static char * __fastcall CharTable(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TStringFormat_UU(void) : TStringFormat() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TStringFormat_UU(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStringFormat_XX;
class PASCALIMPLEMENTATION TStringFormat_XX : public TStringFormat_UU 
{
	typedef TStringFormat_UU inherited;
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual AnsiString __fastcall Name() { return Name(__classid(TStringFormat_XX)); }
	#pragma option pop
	/*         class method */ static AnsiString __fastcall Name(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual int __fastcall Format() { return Format(__classid(TStringFormat_XX)); }
	#pragma option pop
	/*         class method */ static int __fastcall Format(TMetaClass* vmt);
	#pragma option push -w-inl
	/* virtual class method */ virtual char * __fastcall CharTable() { return CharTable(__classid(TStringFormat_XX)); }
	#pragma option pop
	/*         class method */ static char * __fastcall CharTable(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TStringFormat_XX(void) : TStringFormat_UU() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TStringFormat_XX(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TProgressEvent)(System::TObject* Sender, int Current, int Maximal);

//-- var, const, procedure ---------------------------------------------------
static const Shortint fmtDEFAULT = -1;
static const Shortint fmtNONE = 0x0;
static const Shortint fmtCOPY = 0x1;
static const Shortint fmtHEX = 0x10;
static const Word fmtHEXL = 0x3f8;
static const Word fmtMIME64 = 0x1064;
static const Word fmtUU = 0x5555;
static const Word fmtXX = 0x5858;
extern PACKAGE bool InitTestIsOk;
extern PACKAGE Word IdentityBase;
extern PACKAGE unsigned __fastcall (*SwapInteger)(unsigned Value);
extern PACKAGE void __fastcall (*SwapIntegerBuffer)(void * Source, void * Dest, int Count);
extern PACKAGE TProgressEvent Progress;
extern PACKAGE System::Comp __fastcall PerfCounter(void);
extern PACKAGE System::Comp __fastcall PerfFreq(void);
extern PACKAGE int __fastcall DefaultStringFormat(void);
extern PACKAGE void __fastcall SetDefaultStringFormat(int Format);
extern PACKAGE int __fastcall CPUType(void);
extern PACKAGE bool __fastcall IsObject(void * AObject, TMetaClass* AClass);
extern PACKAGE unsigned __fastcall ROL(unsigned Value, int Shift);
extern PACKAGE unsigned __fastcall ROLADD(unsigned Value, unsigned Add, int Shift);
extern PACKAGE unsigned __fastcall ROLSUB(unsigned Value, unsigned Sub, int Shift);
extern PACKAGE unsigned __fastcall ROR(unsigned Value, int Shift);
extern PACKAGE unsigned __fastcall RORADD(unsigned Value, unsigned Add, int Shift);
extern PACKAGE unsigned __fastcall RORSUB(unsigned Value, unsigned Sub, int Shift);
extern PACKAGE unsigned __fastcall SwapBits(unsigned Value);
extern PACKAGE int __fastcall LSBit(int Value);
extern PACKAGE int __fastcall MSBit(int Value);
extern PACKAGE int __fastcall OneBit(int Value);
extern PACKAGE int __fastcall MemCompare(void * P1, void * P2, int Size);
extern PACKAGE void __fastcall XORBuffers(void * I1, void * I2, int Size, void * Dest);
extern PACKAGE void __fastcall DoProgress(System::TObject* Sender, int Current, int Maximal);
extern PACKAGE TMetaClass* __fastcall StringFormat(int Format);
extern PACKAGE AnsiString __fastcall StrToFormat(char * Value, int Len, int Format);
extern PACKAGE AnsiString __fastcall FormatToStr(char * Value, int Len, int Format);
extern PACKAGE AnsiString __fastcall ConvertFormat(char * Value, int Len, int FromFormat, int ToFormat);
extern PACKAGE bool __fastcall IsValidFormat(char * Value, int Len, int Format);
extern PACKAGE bool __fastcall IsValidString(char * Value, int Len, int Format);
extern PACKAGE void __fastcall RegisterStringFormats(TMetaClass* const * StringFormats, const int StringFormats_Size);
extern PACKAGE void __fastcall GetStringFormats(Classes::TStrings* Strings);
extern PACKAGE AnsiString __fastcall InsertCR(const AnsiString Value, int BlockSize);
extern PACKAGE AnsiString __fastcall DeleteCR(const AnsiString Value);
extern PACKAGE AnsiString __fastcall InsertBlocks(const AnsiString Value, const AnsiString BlockStart, const AnsiString BlockEnd, int BlockSize);
extern PACKAGE AnsiString __fastcall RemoveBlocks(const AnsiString Value, const AnsiString BlockStart, const AnsiString BlockEnd);
extern PACKAGE AnsiString __fastcall GetShortClassName(TMetaClass* Value);
extern PACKAGE int __fastcall RndXORBuffer(int Seed, void *Buffer, int Size);
extern PACKAGE int __fastcall RndTimeSeed(void);
extern PACKAGE Word __fastcall CRC16(Word CRC, void * Data, unsigned DataSize);
extern PACKAGE char * __fastcall GetTestVector(void);

}	/* namespace Absdecutil */
using namespace Absdecutil;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Absdecutil