memtableeh.hpp

最新的 DBGRIDEH4.0

public:
	bool InUse;
	int Bookmark;
	Db::TBookmarkFlag BookmarkFlag;
	int RecordStatus;
	int RecordNumber;
	bool NewTreeNodeExpanded;
	bool NewTreeNodeHasChildren;
	Memtabledataeh::TMemRecViewEh* RecView;
	Memtabledataeh::TMemoryRecordEh* MemRec;
	DynamicArray<Variant >  Values;
	bool UseMemRec;
	Variant __fastcall GetValue(Db::TField* Field);
	int __fastcall ReadValueCount(void);
	void __fastcall SetValue(Db::TField* Field, const Variant &v);
	void __fastcall SetLength(int Len);
	void __fastcall Clear(void);
	__fastcall virtual ~TRecBuf(void);
	__property Variant Value[Db::TField* Field] = {read=GetValue, write=SetValue};
	__property int ValueCount = {read=ReadValueCount, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TRecBuf(void) : System::TObject() { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TSortedVarItemEh : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	Variant Value;
	
public:
	__fastcall TSortedVarItemEh(const Variant &NewValue);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSortedVarItemEh(void) { }
	#pragma option pop
	
};


typedef DynamicArray<int >  MemTableEh__7;

class DELPHICLASS TMemBlobStreamEh;
class PASCALIMPLEMENTATION TMemBlobStreamEh : public Classes::TMemoryStream 
{
	typedef Classes::TMemoryStream inherited;
	
private:
	Db::TBlobField* FField;
	TCustomMemTableEh* FDataSet;
	TRecBuf* FBuffer;
	int FFieldNo;
	bool FModified;
	Variant FData;
	Variant FFieldData;
	
protected:
	void __fastcall ReadBlobData(void);
	virtual void * __fastcall Realloc(int &NewCapacity);
	
public:
	__fastcall TMemBlobStreamEh(Db::TBlobField* Field, Db::TBlobStreamMode Mode);
	__fastcall virtual ~TMemBlobStreamEh(void);
	virtual int __fastcall Write(const void *Buffer, int Count);
	void __fastcall Truncate(void);
};


class DELPHICLASS TMemTableEh;
class PASCALIMPLEMENTATION TMemTableEh : public TCustomMemTableEh 
{
	typedef TCustomMemTableEh inherited;
	
__published:
	__property Active  = {default=0};
	__property AggregatesActive  = {default=0};
	__property AutoCalcFields  = {default=1};
	__property AutoIncrement ;
	__property CachedUpdates  = {default=0};
	__property DetailFields ;
	__property ExternalMemData ;
	__property FieldDefs ;
	__property Filter ;
	__property Filtered  = {default=0};
	__property FetchAllOnOpen  = {default=0};
	__property IndexDefs ;
	__property MasterDetailSide  = {default=0};
	__property MasterFields ;
	__property MasterSource ;
	__property Params ;
	__property DataDriver ;
	__property ReadOnly  = {default=0};
	__property SortOrder ;
	__property StoreDefs  = {default=0};
	__property TreeList ;
	__property BeforeOpen ;
	__property AfterOpen ;
	__property BeforeClose ;
	__property AfterClose ;
	__property BeforeInsert ;
	__property AfterInsert ;
	__property BeforeEdit ;
	__property AfterEdit ;
	__property BeforePost ;
	__property AfterPost ;
	__property BeforeCancel ;
	__property AfterCancel ;
	__property BeforeDelete ;
	__property AfterDelete ;
	__property BeforeScroll ;
	__property AfterScroll ;
	__property BeforeRefresh ;
	__property AfterRefresh ;
	__property OnCalcFields ;
	__property OnDeleteError ;
	__property OnEditError ;
	__property OnFilterRecord ;
	__property OnNewRecord ;
	__property OnPostError ;
	__property OnGetFieldValue ;
	__property OnSetFieldValue ;
public:
	#pragma option push -w-inl
	/* TCustomMemTableEh.Create */ inline __fastcall virtual TMemTableEh(Classes::TComponent* AOwner) : TCustomMemTableEh(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomMemTableEh.Destroy */ inline __fastcall virtual ~TMemTableEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TMemTableDataFieldValueListEh;
class PASCALIMPLEMENTATION TMemTableDataFieldValueListEh : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
private:
	Classes::TStringList* FValues;
	bool FDataObsoleted;
	AnsiString FFieldName;
	Memtabledataeh::TRecordsListNotificatorEh* FNotificator;
	Classes::TStrings* __fastcall GetValues(void);
	void __fastcall SetFieldName(const AnsiString Value);
	Classes::TComponent* __fastcall GetDataObject(void);
	void __fastcall SetDataObject(const Classes::TComponent* Value);
	
protected:
	void __fastcall MTDataEvent(Memtabledataeh::TMemoryRecordEh* MemRec, int Index, Memtabledataeh::TRecordsListNotification Action);
	virtual void __fastcall RecordListChanged(void);
	void __fastcall RefreshValues(void);
	
public:
	__fastcall TMemTableDataFieldValueListEh(void);
	__fastcall virtual ~TMemTableDataFieldValueListEh(void);
	__property AnsiString FieldName = {read=FFieldName, write=SetFieldName};
	__property Classes::TComponent* DataObject = {read=GetDataObject, write=SetDataObject};
	__property Classes::TStrings* Values = {read=GetValues};
private:
	void *__IMemTableDataFieldValueListEh;	/* Toolctrlseh::IMemTableDataFieldValueListEh */
	
public:
	operator IMemTableDataFieldValueListEh*(void) { return (IMemTableDataFieldValueListEh*)&__IMemTableDataFieldValueListEh; }
	
};


class DELPHICLASS TRefObjectField;
class PASCALIMPLEMENTATION TRefObjectField : public Db::TField 
{
	typedef Db::TField inherited;
	
protected:
	/* virtual class method */ virtual void __fastcall CheckTypeSize(TMetaClass* vmt, int Value);
	virtual Variant __fastcall GetAsVariant();
	System::TObject* __fastcall GetValue(void);
	void __fastcall SetValue(const System::TObject* Value);
	virtual void __fastcall SetVarValue(const Variant &Value);
	
public:
	__fastcall virtual TRefObjectField(Classes::TComponent* AOwner);
	__property System::TObject* Value = {read=GetValue, write=SetValue};
public:
	#pragma option push -w-inl
	/* TField.Destroy */ inline __fastcall virtual ~TRefObjectField(void) { }
	#pragma option pop
	
};


class DELPHICLASS TMTOrderByList;
class PASCALIMPLEMENTATION TMTOrderByList : public Memtabledataeh::TOrderByList 
{
	typedef Memtabledataeh::TOrderByList inherited;
	
public:
	#pragma option push -w-inl
	/* TObjectList.Create */ inline __fastcall TMTOrderByList(void)/* overload */ : Memtabledataeh::TOrderByList() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TMTOrderByList(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __fastcall AssignRecord(Db::TDataSet* Source, Db::TDataSet* Destinate);

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

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