absstrutils.hpp

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

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Absstrutils.pas' rev: 10.00

#ifndef AbsstrutilsHPP
#define AbsstrutilsHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Absstrutils
{
//-- type declarations -------------------------------------------------------
typedef char TABSCharTable[256];

typedef char *PABSCharTable;

typedef Byte TABSByteTable[256];

typedef Byte *PABSByteTable;

typedef int __stdcall (*TCompareStringW)(unsigned Locale, unsigned dwCmpFlags, WideChar * lpString1, int cchCount1, WideChar * lpString2, int cchCount2);

typedef unsigned __stdcall (*TCharUpperBuffW)(WideChar * lpsz, unsigned cchLength);

typedef unsigned __stdcall (*TCharLowerBuffW)(WideChar * lpsz, unsigned cchLength);

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE char ToUpperChars[256];
extern PACKAGE char ToLowerChars[256];
extern PACKAGE Byte OrderedChars[256];
extern PACKAGE TCompareStringW CompareStringW;
extern PACKAGE TCharUpperBuffW CharUpperBuffW;
extern PACKAGE TCharLowerBuffW CharLowerBuffW;
extern PACKAGE WideString __fastcall WideUpperCase(const WideString S);
extern PACKAGE WideString __fastcall WideLowerCase(const WideString S);
extern PACKAGE void __fastcall ChangeCaseCustom(char * Buffer, PABSCharTable PTable);
extern PACKAGE void __fastcall ToLowerCase(char * Buffer);
extern PACKAGE void __fastcall ToUpperCase(char * Buffer);

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

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