TClientDataSet的有关问题
TClientDataSet的问题
void __fastcall TSDIAppForm::ButtonPreViewClick(TObject *Sender)
{
TClientDataSet *ADataSet = new TClientDataSet(this);
ADataSet->FieldDefs->Add("Name", ftString, 30, false);
ADataSet->FieldDefs->Add("Value", ftInteger, 0, false);
ADataSet->CreateDataSet();
this->DataSource1->DataSet=ADataSet;
this->DBGrid1->DataSource=this->DataSource1;
ADataSet->Append();
ADataSet->FieldValues["Name"]="t1";
ADataSet->FieldValues["Value"]=1;
delete ADataSet;
}
上述代码是建立一张内存TABLE，因为ADataSet 是一个指针类型，所以后面需要使用DELETE删除，问题是如果一删除，
那么DBGrid1就没有任何数据了。这个表每次CLICK后都会生成不同的内容的，所以不能等程序退出后再清空。
我是想每次CLICK一次后，就生成一张内存表。再点一次，原来的被清空，再生成另外一张内存表。请问这个如何操作，谢谢？
------解决方案--------------------
TClientDataSet *ADataSet 定义全局变量
做了个例子，你看着用吧
void __fastcall TSDIAppForm::ButtonPreViewClick(TObject *Sender)
{
TClientDataSet *ADataSet = new TClientDataSet(this);
ADataSet->FieldDefs->Add("Name", ftString, 30, false);
ADataSet->FieldDefs->Add("Value", ftInteger, 0, false);
ADataSet->CreateDataSet();
this->DataSource1->DataSet=ADataSet;
this->DBGrid1->DataSource=this->DataSource1;
ADataSet->Append();
ADataSet->FieldValues["Name"]="t1";
ADataSet->FieldValues["Value"]=1;
delete ADataSet;
}
上述代码是建立一张内存TABLE，因为ADataSet 是一个指针类型，所以后面需要使用DELETE删除，问题是如果一删除，
那么DBGrid1就没有任何数据了。这个表每次CLICK后都会生成不同的内容的，所以不能等程序退出后再清空。
我是想每次CLICK一次后，就生成一张内存表。再点一次，原来的被清空，再生成另外一张内存表。请问这个如何操作，谢谢？
------解决方案--------------------
TClientDataSet *ADataSet 定义全局变量
做了个例子，你看着用吧
- C/C++ code
头文件中
private: // User declarations
TClientDataSet *ADataSet;
cpp文件
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
*ADataSet = new TClientDataSet(this);
ADataSet->FieldDefs->Add("Name", ftString, 30, false);
ADataSet->FieldDefs->Add("Value", ftInteger, 0, false);
ADataSet->CreateDataSet();
DataSource1->DataSet=ADataSet;
DBGrid1->DataSource=this->DataSource1;
}
//---------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADataSet->EmptyDataSet();//清空数据
ADataSet->Append();
ADataSet->FieldValues["Name"]="t1";
ADataSet->FieldValues["Value"]=1;
}
//---------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete ADataSet;
}
------解决方案--------------------