Devart Forums

Code: Select all

class TMyClass : public TObject
{
private:		// User declarations
	TUniConnection *UniConnection;
	TUniLoader *UniLoader;
	int LoaderRecNo;
	void __fastcall PutData(TDALoader *Sender);
public:		// User declarations
	__fastcall TMyClass();

};

void __fastcall TMyClass::PutData(TDALoader *Sender)
{
	for (int i = 0; i < LoaderRecNo ; i++) {
		Sender->PutColumnData("f1", i, "data");
		Sender->PutColumnData("f2", i, "data");
	}
}

__fastcall TMyClass::TMyClass(): TObject()
{
	UniConnection = new TUniConnection(NULL);
	UniConnection->ConnectString = "ProviderName=SQLite;Database=:memory:";
	UniConnection->ExecSQL("create table table1 (f1 text, f2 text)");
	UniLoader = new TUniLoader(NULL);
	UniLoader->Connection = UniConnection;
	UniLoader->TableName = "table1";
	UniLoader->OnPutData = PutData;
	UniLoader->Load();
}