absconverts.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) 'Absconverts.pas' rev: 10.00

#ifndef AbsconvertsHPP
#define AbsconvertsHPP

#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 <Db.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Abstypes.hpp>	// Pascal unit
#include <Absstrutils.hpp>	// Pascal unit
#include <Absexcept.hpp>	// Pascal unit
#include <Absconst.hpp>	// Pascal unit

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

namespace Absconverts
{
//-- type declarations -------------------------------------------------------
#pragma pack(push,1)
struct TSQLFieldType
{
	
public:
	AnsiString SqlName;
	Abstypes::TABSAdvancedFieldType AdvancedFieldType;
	Abstypes::TABSBaseFieldType BaseFieldType;
	Db::TFieldType FieldType;
} ;
#pragma pack(pop)

typedef TSQLFieldType ABSConverts__1[60];

//-- var, const, procedure ---------------------------------------------------
static const char WildCardMultipleChar = '\x25';
static const char WildCardSingleChar = '\x5f';
extern PACKAGE TSQLFieldType SQLFieldTypes[60];
extern PACKAGE Abstypes::TABSBaseFieldType __fastcall AdvancedFieldTypeToBaseFieldType(Abstypes::TABSAdvancedFieldType AdvancedFieldType);
extern PACKAGE Abstypes::TABSAdvancedFieldType __fastcall BaseFieldTypeToAdvancedFieldType(Abstypes::TABSBaseFieldType BaseFieldType);
extern PACKAGE Abstypes::TABSAdvancedFieldType __fastcall FieldTypeToABSAdvFieldType(Db::TFieldType FieldType);
extern PACKAGE Db::TFieldType __fastcall ABSAdvFieldTypeToFieldType(Abstypes::TABSAdvancedFieldType AdvancedFieldType);
extern PACKAGE AnsiString __fastcall AftToStr(Abstypes::TABSAdvancedFieldType AdvancedFieldType);
extern PACKAGE Abstypes::TABSAdvancedFieldType __fastcall StrToAft(AnsiString TypeName);
extern PACKAGE AnsiString __fastcall BftToStr(Abstypes::TABSBaseFieldType BaseFieldType);
extern PACKAGE AnsiString __fastcall FtToStr(Db::TFieldType FieldType);
extern PACKAGE System::TDateTime __fastcall ABSDateToDate(int ABSDate)/* overload */;
extern PACKAGE int __fastcall DateToABSDate(System::TDateTime Date)/* overload */;
extern PACKAGE System::TDateTime __fastcall ABSTimeToTime(int ABSTime)/* overload */;
extern PACKAGE int __fastcall TimeToABSTime(System::TDateTime Time)/* overload */;
extern PACKAGE System::TDateTime __fastcall ABSDateTimeToDateTime(const Abstypes::TABSDateTime &ABSDateTime)/* overload */;
extern PACKAGE Abstypes::TABSDateTime __fastcall DateTimeToABSDateTime(System::TDateTime DateTime)/* overload */;
extern PACKAGE bool __fastcall IsBLOBFieldType(Abstypes::TABSBaseFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsBLOBFieldType(Abstypes::TABSAdvancedFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsStringFieldType(Abstypes::TABSBaseFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsStringFieldType(Abstypes::TABSAdvancedFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsWideStringFieldType(Abstypes::TABSBaseFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsWideStringFieldType(Abstypes::TABSAdvancedFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsBytesFieldType(Abstypes::TABSBaseFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsBytesFieldType(Abstypes::TABSAdvancedFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsAutoincFieldType(Abstypes::TABSAdvancedFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsNumericFieldType(Abstypes::TABSBaseFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsNumericFieldType(Abstypes::TABSAdvancedFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsDateTimeFieldType(Abstypes::TABSBaseFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsDateTimeFieldType(Abstypes::TABSAdvancedFieldType FieldType)/* overload */;
extern PACKAGE bool __fastcall IsSizebleFieldType(Abstypes::TABSAdvancedFieldType FieldType);
extern PACKAGE bool __fastcall IsConvertableFieldType(Abstypes::TABSAdvancedFieldType FieldType);
extern PACKAGE bool __fastcall IsStrMatchPattern(char * StrPtr, char * PatternPtr, bool IsPatternEscaped, char EscapeChar, bool bIgnoreCase);
extern PACKAGE bool __fastcall IsWideStrMatchPattern(WideChar * StrPtr, WideChar * PatternPtr, bool IsPatternEscaped, WideChar EscapeChar, bool bIgnoreCase);
extern PACKAGE void __fastcall AssignField(Db::TField* SrcField, Db::TField* DestField);
extern PACKAGE bool __fastcall ISODateStrToDate(const AnsiString DateStr, System::TDateTime &Date);
extern PACKAGE bool __fastcall ISOTimeStrToTime(const AnsiString TimeStr, System::TDateTime &Time);
extern PACKAGE bool __fastcall ISOTimeStampStrToDateTime(const AnsiString TimeStampStr, System::TDateTime &DateTime);

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

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