dbgridehimpexp.hpp

最新的 DBGRIDEH4.0

	#pragma option push -w-inl
	/* TDBGridEhExport.Create */ inline __fastcall virtual TDBGridEhExportAsXLS(void) : TDBGridEhExport() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDBGridEhExport.Destroy */ inline __fastcall virtual ~TDBGridEhExportAsXLS(void) { }
	#pragma option pop
	
};


#pragma pack(push,1)
struct TVCLDBIF_BOF
{
	
public:
	char Signatura[7];
	Byte Version;
	int ColCount;
} ;
#pragma pack(pop)

#pragma pack(push,1)
struct TVCLDBIF_INTEGER32
{
	
public:
	Byte AType;
	int Value;
} ;
#pragma pack(pop)

#pragma pack(push,1)
struct TVCLDBIF_FLOAT64
{
	
public:
	Byte AType;
	double Value;
} ;
#pragma pack(pop)

#pragma pack(push,1)
struct TVCLDBIF_STRING
{
	
public:
	Byte AType;
	int Size;
} ;
#pragma pack(pop)

#pragma pack(push,1)
struct TVCLDBIF_BINARY_DATA
{
	
public:
	Byte AType;
	int Size;
} ;
#pragma pack(pop)

class DELPHICLASS TDBGridEhExportAsVCLDBIF;
class PASCALIMPLEMENTATION TDBGridEhExportAsVCLDBIF : public TDBGridEhExport 
{
	typedef TDBGridEhExport inherited;
	
private:
	void __fastcall WriteUnassigned(void);
	void __fastcall WriteNull(void);
	void __fastcall WriteInteger(int AValue);
	void __fastcall WriteFloat(double AValue);
	void __fastcall WriteString(AnsiString AValue);
	void __fastcall WriteBinaryData(AnsiString AValue);
	
protected:
	virtual void __fastcall WritePrefix(void);
	virtual void __fastcall WriteSuffix(void);
	virtual void __fastcall WriteDataCell(Dbgrideh::TColumnEh* Column, Dbgrideh::TColCellParamsEh* FColCellParamsEh);
public:
	#pragma option push -w-inl
	/* TDBGridEhExport.Create */ inline __fastcall virtual TDBGridEhExportAsVCLDBIF(void) : TDBGridEhExport() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDBGridEhExport.Destroy */ inline __fastcall virtual ~TDBGridEhExportAsVCLDBIF(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhImport;
class PASCALIMPLEMENTATION TDBGridEhImport : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Dbgrideh::TCustomDBGridEh* FDBGridEh;
	Classes::TStream* FStream;
	Dbgrideh::TColumnsEhList* FImpCols;
	
protected:
	bool Eos;
	virtual void __fastcall ReadPrefix(void);
	virtual void __fastcall ReadSuffix(void);
	virtual void __fastcall ReadRecord(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall ReadDataCell(Dbgrideh::TColumnEh* Column);
	__property Classes::TStream* Stream = {read=FStream, write=FStream};
	__property Dbgrideh::TColumnsEhList* ImpCols = {read=FImpCols, write=FImpCols};
	
public:
	__fastcall virtual TDBGridEhImport(void);
	virtual void __fastcall ImportFromStream(Classes::TStream* AStream, bool IsImportAll);
	virtual void __fastcall ImportFromFile(AnsiString FileName, bool IsImportAll);
	__property Dbgrideh::TCustomDBGridEh* DBGridEh = {read=FDBGridEh, write=FDBGridEh};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TDBGridEhImport(void) { }
	#pragma option pop
	
};


typedef TMetaClass* TDBGridEhImportClass;

#pragma option push -b-
enum TImportTextSreamState { itssChar, itssTab, itssNewLine, itssEof };
#pragma option pop

class DELPHICLASS TDBGridEhImportAsText;
class PASCALIMPLEMENTATION TDBGridEhImportAsText : public TDBGridEhImport 
{
	typedef TDBGridEhImport inherited;
	
private:
	char FLastChar;
	TImportTextSreamState FLastState;
	AnsiString FLastString;
	bool FIgnoreAll;
	bool __fastcall GetChar(char &ch);
	TImportTextSreamState __fastcall CheckState(void);
	TImportTextSreamState __fastcall GetString(AnsiString &Value);
	
protected:
	virtual void __fastcall ReadPrefix(void);
	virtual void __fastcall ReadRecord(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall ReadDataCell(Dbgrideh::TColumnEh* Column);
	
public:
	virtual void __fastcall ImportFromStream(Classes::TStream* AStream, bool IsImportAll);
public:
	#pragma option push -w-inl
	/* TDBGridEhImport.Create */ inline __fastcall virtual TDBGridEhImportAsText(void) : TDBGridEhImport() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TDBGridEhImportAsText(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhImportAsVCLDBIF;
class PASCALIMPLEMENTATION TDBGridEhImportAsVCLDBIF : public TDBGridEhImport 
{
	typedef TDBGridEhImport inherited;
	
private:
	#pragma pack(push,1)
	TVCLDBIF_BOF Prefix;
	#pragma pack(pop)
	bool FIgnoreAll;
	Variant LastValue;
	Classes::TStringList* FieldNames;
	bool UseFieldNames;
	void __fastcall ReadValue(void);
	
protected:
	virtual void __fastcall ReadPrefix(void);
	virtual void __fastcall ReadRecord(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall ReadDataCell(Dbgrideh::TColumnEh* Column);
	
public:
	virtual void __fastcall ImportFromStream(Classes::TStream* AStream, bool IsImportAll);
public:
	#pragma option push -w-inl
	/* TDBGridEhImport.Create */ inline __fastcall virtual TDBGridEhImportAsVCLDBIF(void) : TDBGridEhImport() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TDBGridEhImportAsVCLDBIF(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint TVCLDBIF_TYPE_EOF = 0x0;
static const Shortint TVCLDBIF_TYPE_UNASSIGNED = 0x1;
static const Shortint TVCLDBIF_TYPE_NULL = 0x2;
static const Shortint TVCLDBIF_TYPE_INTEGER32 = 0x3;
static const Shortint TVCLDBIF_TYPE_FLOAT64 = 0x4;
static const Shortint TVCLDBIF_TYPE_STRING = 0x5;
static const Shortint TVCLDBIF_TYPE_BINARY_DATA = 0x6;
extern PACKAGE Word CF_VCLDBIF;
extern PACKAGE bool ExtendedVCLDBIFImpExpRowSelect;
extern PACKAGE char DBGridEhImpExpCsvSeparator;
extern PACKAGE void __fastcall WriteDBGridEhToExportStream(TMetaClass* ExportClass, Dbgrideh::TCustomDBGridEh* DBGridEh, Classes::TStream* Stream, bool IsSaveAll);
extern PACKAGE void __fastcall SaveDBGridEhToExportFile(TMetaClass* ExportClass, Dbgrideh::TCustomDBGridEh* DBGridEh, const AnsiString FileName, bool IsSaveAll);
extern PACKAGE void __fastcall LoadDBGridEhFromImportFile(TMetaClass* ImportClass, Dbgrideh::TCustomDBGridEh* DBGridEh, const AnsiString FileName, bool IsLoadToAll);
extern PACKAGE void __fastcall ReadDBGridEhFromImportStream(TMetaClass* ImportClass, Dbgrideh::TCustomDBGridEh* DBGridEh, Classes::TStream* Stream, bool IsLoadToAll);
extern PACKAGE void __fastcall DBGridEh_DoCutAction(Dbgrideh::TCustomDBGridEh* DBGridEh, bool ForWholeGrid);
extern PACKAGE void __fastcall DBGridEh_DoDeleteAction(Dbgrideh::TCustomDBGridEh* DBGridEh, bool ForWholeGrid);
extern PACKAGE void __fastcall DBGridEh_DoCopyAction(Dbgrideh::TCustomDBGridEh* DBGridEh, bool ForWholeGrid);
extern PACKAGE void __fastcall DBGridEh_DoPasteAction(Dbgrideh::TCustomDBGridEh* DBGridEh, bool ForWholeGrid);

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

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