absdateformat.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) 'Absdateformat.pas' rev: 10.00

#ifndef AbsdateformatHPP
#define AbsdateformatHPP

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

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

namespace Absdateformat
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TDateFormatType { dfYYYY, dfYY, dfYEAR, dfQ, dfMONTH, dfMON, dfMM, dfM, dfRM, dfDDD, dfDD, dfDAY, dfDY, dfDW, dfD, dfHH12, dfHH24, dfHH, dfH12, dfH24, dfH, dfNN, dfN, dfSS, dfS, dfAMPM, dfText };
#pragma option pop

typedef AnsiString ABSDateFormat__1[26];

struct TDateFormatToken
{
	
public:
	TDateFormatType TokenType;
	AnsiString Text;
} ;

typedef DynamicArray<TDateFormatToken >  ABSDateFormat__3;

class DELPHICLASS TDateFormater;
class PASCALIMPLEMENTATION TDateFormater : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	DynamicArray<TDateFormatToken >  FDateFormat;
	void __fastcall ParseDateFormat(const AnsiString DateFormatStr);
	TDateFormatType __fastcall GetReservedWord(const AnsiString Text);
	
public:
	__fastcall TDateFormater(AnsiString DateFormat);
	__fastcall virtual ~TDateFormater(void);
	System::TDateTime __fastcall ToDate(AnsiString str);
	AnsiString __fastcall ToString(System::TDateTime dt);
	int __fastcall GetStringMaxSize(void);
	Abstypes::TABSAdvancedFieldType __fastcall GetDataType(void);
	AnsiString __fastcall DebugGetTotenList();
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint DateFormatReservedWordsCount = 0x1a;
extern PACKAGE AnsiString DateFormatReservedWords[26];
#define Delimeters "-/,.;:"
static const Word TwoDigitYearCenturyWindow = 0x78a;
extern PACKAGE int DateFormatReservedWordsMaxLength;

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

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