mysqlstrutils.hpp

MYSQL 连接控件 MYSQL 连接控件

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

// (DO NOT EDIT: machine generated header) 'MySQLStrUtils.pas' rev: 6.00

#ifndef MySQLStrUtilsHPP
#define MySQLStrUtilsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Mysqlstrutils
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TSBStringList;
class PASCALIMPLEMENTATION TSBStringList : public Classes::TStringList 
{
	typedef Classes::TStringList inherited;
	
private:
	AnsiString FStringDel;
	
protected:
	virtual AnsiString __fastcall GetTextStr();
	virtual void __fastcall SetTextStr(const AnsiString Value);
	
public:
	__fastcall TSBStringList(void);
	__property AnsiString StringDel = {read=FStringDel, write=FStringDel};
public:
	#pragma option push -w-inl
	/* TStringList.Destroy */ inline __fastcall virtual ~TSBStringList(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE AnsiString __fastcall IFStr(const bool Condition, const AnsiString T, const AnsiString F);
extern PACKAGE AnsiString __fastcall ZeroFilled(AnsiString V, int L);
extern PACKAGE Classes::TStringList* __fastcall SBCommaText(AnsiString Value);
extern PACKAGE AnsiString __fastcall PreStrClean(AnsiString StrIn, AnsiString DS);
extern PACKAGE AnsiString __fastcall PostStrClean(AnsiString StrIn, AnsiString DS);
extern PACKAGE AnsiString __fastcall PrePostStrClean(AnsiString StrIn, AnsiString DS);
extern PACKAGE AnsiString __fastcall InStrClean(AnsiString StrIn, AnsiString DS);
extern PACKAGE AnsiString __fastcall FieldInStr(Byte Number, AnsiString StrIn, AnsiString CS, AnsiString DS);
extern PACKAGE AnsiString __fastcall WordInStr(Byte Number, AnsiString StrIn, AnsiString CS);
extern PACKAGE void __fastcall ChangeWordInStr(Byte Number, AnsiString &StrIn, AnsiString NewValue, AnsiString CS);
extern PACKAGE AnsiString __fastcall OneStr(AnsiString StrIn, AnsiString DS);
extern PACKAGE AnsiString __fastcall ReplaceSubStr(AnsiString InStr, AnsiString SearchStr, AnsiString ReplaceStr);
extern PACKAGE int __fastcall CountSubStr(AnsiString InStr, AnsiString SearchStr);
extern PACKAGE double __fastcall FloatToTime(double dt);
extern PACKAGE double __fastcall StrFloatToTime( System::ShortString &s);
extern PACKAGE double __fastcall StrFloatToDate( System::ShortString &s);
extern PACKAGE double __fastcall StrFloatToDateTime( System::ShortString &s);
extern PACKAGE double __fastcall StrToDateTimeFmt( System::ShortString &s);
extern PACKAGE AnsiString __fastcall GetWord(AnsiString InStr, AnsiString Delim, int pnIndex);
extern PACKAGE AnsiString __fastcall GetStrWord(int pnIndex, AnsiString InStr, AnsiString Delim);
extern PACKAGE System::TDateTime __fastcall MySQLStrToDate( System::ShortString &S);
extern PACKAGE System::TDateTime __fastcall MySQLStrToTime( System::ShortString &S);
extern PACKAGE System::TDateTime __fastcall MySQLStrToDateTime( System::ShortString &S);
extern PACKAGE System::TDateTime __fastcall MySQLTimeStampToDateTime( System::ShortString &S);
extern PACKAGE System::TDateTime __fastcall MySQLTimeStampToDate( System::ShortString &S);
extern PACKAGE System::TDateTime __fastcall MySQLTimeStampToTime( System::ShortString &S);
extern PACKAGE Sysutils::TTimeStamp __fastcall MySQLDateStrToTimeStamp( System::ShortString &S);
extern PACKAGE Sysutils::TTimeStamp __fastcall MySQLTimeStrToTimeStamp( System::ShortString &S);
extern PACKAGE Sysutils::TTimeStamp __fastcall MySQLDateTimeStrToTimeStamp( System::ShortString &S);
extern PACKAGE Sysutils::TTimeStamp __fastcall MySQLTimeStampStrToTimeStamp( System::ShortString &S);
extern PACKAGE Extended __fastcall MySQLStrToFloat(AnsiString S);
extern PACKAGE AnsiString __fastcall MySQLFloatToStr(double S);
extern PACKAGE AnsiString __fastcall GetPrefixWord(int pnIndex, AnsiString InStr, AnsiString Delim);
extern PACKAGE bool __fastcall IsValidInt(const AnsiString Value);
extern PACKAGE bool __fastcall IsValidFloat(const AnsiString Value);
extern PACKAGE AnsiString __fastcall WriteIniString(const AnsiString Props, const AnsiString Section, const AnsiString Item, const AnsiString Value);
extern PACKAGE AnsiString __fastcall ReadIniString(const AnsiString Props, const AnsiString Section, const AnsiString Item, const AnsiString Default);
extern PACKAGE AnsiString __fastcall ReadIniSection(const AnsiString Props, const AnsiString Section, const AnsiString Default);
extern PACKAGE AnsiString __fastcall EraseIniSection(const AnsiString Props, const AnsiString Section);
extern PACKAGE AnsiString __fastcall WriteIniInteger(const AnsiString Props, const AnsiString Section, const AnsiString Item, int Value);
extern PACKAGE int __fastcall ReadIniInteger(const AnsiString Props, const AnsiString Section, const AnsiString Item, int Default);
extern PACKAGE AnsiString __fastcall WriteIniBoolean(const AnsiString Props, const AnsiString Section, const AnsiString Item, bool Value);
extern PACKAGE bool __fastcall ReadIniBoolean(const AnsiString Props, const AnsiString Section, const AnsiString Item, bool Default);
extern PACKAGE AnsiString __fastcall WriteIniDateTime(const AnsiString Props, const AnsiString Section, const AnsiString Item, System::TDateTime Value);
extern PACKAGE System::TDateTime __fastcall ReadIniDateTime(const AnsiString Props, const AnsiString Section, const AnsiString Item, System::TDateTime Default);
extern PACKAGE AnsiString __fastcall WriteIniFloat(const AnsiString Props, const AnsiString Section, const AnsiString Item, Extended Value);
extern PACKAGE Extended __fastcall ReadIniFloat(const AnsiString Props, const AnsiString Section, const AnsiString Item, Extended Default);

}	/* namespace Mysqlstrutils */
using namespace Mysqlstrutils;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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