怎样创建DataSet?

[kmwy]

在运行过程中，如何创建一个5个字段的临时DataSet，并能往里面写数据？

[netsys2]

TDataSet is the base class for all dataset components that represent data in rows and columns.

就是说，当你用TTABLE或者TQUERY时，查询出的数据集就是一个TDataSet.

[netsys2]

TDataSet is the base class for all dataset components that represent data in rows and columns.

就是说，当你用TTABLE或者TQUERY时，查询出的数据集就是一个TDataSet.

[windlyzhang]

这是动态的创建一个Table的例子，希望能给你帮助

TTable *NewTable = new TTable(Form1);

NewTable->Active = false;
NewTable->DatabaseName = "BCDEMOS";
NewTable->TableName = Edit1->Text;
NewTable->TableType = ttDefault;
NewTable->FieldDefs->Clear();

TFieldDef *NewField = NewTable->FieldDefs->AddFieldDef(); // define first field

NewField->DataType = ftInteger;
NewField->Name = Edit2->Text;
NewField = NewTable->FieldDefs->AddFieldDef(); // define second field

NewField->DataType = ftString;
NewField->Size = StrToInt(Edit3->Text);
NewField->Name = Edit4->Text;

NewTable->IndexDefs->Clear();
TIndexDef *NewIndex = NewTable->IndexDefs->AddIndexDef(); // add an index
NewIndex->Name = "PrimaryIndex";
NewIndex->Fields = Edit2->Text;
NewIndex->Options << ixPrimary << ixUnique;

// Now check for prior existence of this table
bool CreateIt = (!NewTable->Exists);
if (!CreateIt)
if (Application->MessageBox((AnsiString("Overwrite table ") + Edit1->Text +
AnsiString("?")).c_str(),

"Table Exists", MB_YESNO) == IDYES)
CreateIt = true;
if(CreateIt)
NewTable->CreateTable(); // create the table

[kmwy]

我执行要一个临时的DataSet，而且不想跟数据库打交道，数据是我在程序中填进去

[ljianq]

TFieldDefs *pDefs = ClientDataSet1->FieldDefs;
TFieldDef *pDef = pDefs->AddFieldDef();
pDef->DataType = ftInteger;
pDef->Name = "Field1";

pDef = pDefs->AddFieldDef();
pDef->DataType = ftString;
pDef->Size = 10;
pDef->Name = "Field2";

TIndexDef *pIDef = ClientDataSet1->IndexDefs->AddIndexDef();
pIDef->Fields = "Field1";
pIDef->Name = "IntIndex";

ClientDataSet1->CreateDataSet();

[kmwy]

请问 ljianq() ，当DataType=ftBCD，Size=34时提示无效的Size，不知为何？
DataType和Size分别取自另一个Table的Fields->Fields[0]->DataType和
Fields->Fields[0]->DataSize。谢谢！

[kmwy]

问题已经解决，谢谢大家！