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

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

#ifndef StdfuncsHPP
#define StdfuncsHPP

#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 <Classes.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Fmtbcd.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit

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

namespace Stdfuncs
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS EParserError;
class PASCALIMPLEMENTATION EParserError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EParserError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EParserError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EParserError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EParserError(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EParserError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EParserError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EParserError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EParserError(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EParserError(void) { }
	#pragma option pop
	
};


typedef Set<char, 0, 255>  TCharSet;

typedef DynamicArray<Variant >  TDynArray;

typedef TDynArray *PDynArray;

class DELPHICLASS TFIBTimer;
class PASCALIMPLEMENTATION TFIBTimer : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	unsigned FInterval;
	HWND FWindowHandle;
	Classes::TNotifyEvent FOnTimer;
	bool FEnabled;
	void __fastcall UpdateTimer(void);
	void __fastcall SetEnabled(bool Value);
	void __fastcall SetInterval(unsigned Value);
	void __fastcall SetOnTimer(Classes::TNotifyEvent Value);
	void __fastcall WndProc(Messages::TMessage &Msg);
	
protected:
	DYNAMIC void __fastcall Timer(void);
	
public:
	__fastcall virtual TFIBTimer(Classes::TComponent* AOwner);
	__fastcall virtual ~TFIBTimer(void);
	
__published:
	__property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
	__property unsigned Interval = {read=FInterval, write=SetInterval, default=1000};
	__property Classes::TNotifyEvent OnTimer = {read=FOnTimer, write=SetOnTimer};
};


typedef System::Comp *PComp;

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE char *TempPath;
extern PACKAGE int TempPathLength;
extern PACKAGE double E10[37];
#define AppPathTemplate "{APP_PATH}"
extern PACKAGE AnsiString __fastcall ConvertToCodePage(const WideString Source, unsigned ToCodePage);
extern PACKAGE WideString __fastcall ConvertFromCodePage(const AnsiString Source, unsigned FromCodePage);
extern PACKAGE void __fastcall StreamToVariantArray(Classes::TMemoryStream* Stream, Variant &Value);
extern PACKAGE void __fastcall StreamToVariant(Classes::TMemoryStream* Stream, Variant &Value);
extern PACKAGE int __fastcall VariantToStream(const Variant &Value, Classes::TStream* Stream);
extern PACKAGE bool __fastcall StringIsDateTimeDefValue(const AnsiString s);
extern PACKAGE AnsiString __fastcall FieldOldValAsString(Db::TField* Field, bool SQLFormat);
extern PACKAGE bool __fastcall GetBCDFieldData(Db::TField* Field, bool OldVal, Fmtbcd::TBcd &BCD);
extern PACKAGE Variant __fastcall BCDFieldAsSQLString(Db::TField* Field, bool OldVal);
extern PACKAGE Variant __fastcall BCDFieldAsString(Db::TField* Field, bool OldVal);
extern PACKAGE Extended __fastcall RoundExtend(Extended Value, int Decimals);
extern PACKAGE Sysutils::TTimeStamp __fastcall TimeStamp(const int aDate, const int aTime);
extern PACKAGE __int64 __fastcall HookTimeStampToMSecs(const Sysutils::TTimeStamp &TimeStamp);
extern PACKAGE System::TDateTime __fastcall HookTimeStampToDateTime(const Sysutils::TTimeStamp &TimeStamp);
extern PACKAGE System::TDateTime __fastcall IBStrToTime(const AnsiString Str);
extern PACKAGE System::TDateTime __fastcall IntDateToDateTime(int aDate);
extern PACKAGE AnsiString __fastcall CmpFullName(Classes::TComponent* cmp);
extern PACKAGE bool __fastcall CmpInLoadedState(Classes::TComponent* Cmp);
extern PACKAGE void __fastcall FullClearStrings(Classes::TStrings* aStrings);
extern PACKAGE Extended __fastcall Degree10(int Degree);
extern PACKAGE int __fastcall ExtPrecision(Extended Value);
extern PACKAGE Fmtbcd::TBcd __fastcall ExtendedToBCD(const Extended Value, int NeedScale);
extern PACKAGE bool __fastcall Int64ToBCD(__int64 Value, int Scale, Fmtbcd::TBcd &BCD);
extern PACKAGE bool __fastcall BCDToCompWithScale(const Fmtbcd::TBcd &BCD, System::Comp &Value, Byte &Scale);
extern PACKAGE AnsiString __fastcall BCDToSQLStr(const Fmtbcd::TBcd &BCD);
extern PACKAGE AnsiString __fastcall FormatNumericString(const AnsiString Format, const AnsiString Source, bool OneSectionFormat = false);
extern PACKAGE AnsiString __fastcall fFormatBcd(const AnsiString Format, const Fmtbcd::TBcd &Bcd);
extern PACKAGE bool __fastcall BCDToExtended(const Fmtbcd::TBcd &BCD, Extended &Value);
extern PACKAGE int __fastcall CompareBCD(const Fmtbcd::TBcd &BCD1, const Fmtbcd::TBcd &BCD2);
extern PACKAGE System::Comp __fastcall StrToComp(const AnsiString Value);
extern PACKAGE AnsiString __fastcall FormatExtended(const AnsiString Format, Extended Value, int Scale);
extern PACKAGE AnsiString __fastcall CompWithScaleToStr(System::Comp Value, int Scale)/* overload */;
extern PACKAGE AnsiString __fastcall CompWithScaleToStr(System::Comp Value, int Scale, char DSep)/* overload */;
extern PACKAGE System::Comp __fastcall CompDiv(System::Comp A, System::Comp B);
extern PACKAGE System::Comp __fastcall CompMod(System::Comp A, System::Comp B);
extern PACKAGE int __fastcall ConvertFromBase(AnsiString sNum, int iBase, AnsiString cDigits);
extern PACKAGE AnsiString __fastcall ConvertToBase(int iNum, int iBase, AnsiString cDigits);
extern PACKAGE int __fastcall Max(int n1, int n2);
extern PACKAGE double __fastcall MaxD(double n1, double n2);
extern PACKAGE int __fastcall Min(int n1, int n2);
extern PACKAGE int __fastcall Signum(int Arg);
extern PACKAGE double __fastcall MinD(double n1, double n2);
extern PACKAGE AnsiString __fastcall RandomString(int iLength);
extern PACKAGE AnsiString __fastcall Soundex(AnsiString st);
extern PACKAGE AnsiString __fastcall StripString(const AnsiString st, const AnsiString CharsToStrip);
extern PACKAGE System::TDateTime __fastcall ClosestWeekday(const System::TDateTime d);
extern PACKAGE int __fastcall Year(System::TDateTime d);
extern PACKAGE int __fastcall Month(System::TDateTime d);
extern PACKAGE int __fastcall DayOfYear(System::TDateTime d);
extern PACKAGE int __fastcall DayOfMonth(System::TDateTime d);
extern PACKAGE void __fastcall WeekOfYear(System::TDateTime d, int &Year, int &Week);
extern PACKAGE void __fastcall InitFPU(void);
extern PACKAGE bool __fastcall GetBit(Byte InByte, Byte Index);
extern PACKAGE Byte __fastcall SetBit(Byte InByte, Byte Index, bool value);

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

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