使用这个TClientDataSet建立内存表，说的详细些，知道的多说些吧。

Question

RT

Answer 1

1.放TclientDataset，Dataprovider，并设置好连接到某个数据集组件TAdoQuery,TQuery。。
2.照常取得数据，测试，你可以showmessage(TClientDataet.XmlData);看到xml格式的数据，
3.这个数据你就可以保存起来，var myInfo := ClientDataset1.XmlData;当然，如果不懂TclientDataset数据也不会丢失。
4.当要在把数据调出来的时候，你可以ClientDataset1.XmlData := myInfo;
提示，你可以让DataGrid之类的数据感知组件通过DataSource连接到TClientDataset;

Answer 2

我建立了一个TclientDataset和DataSource，只是把数据保存的内存，然后用另外一个程序进行读取就可以了，现在怎么读取呢。

Answer 3

很简单啊，你用TclientDataset.SaveToFile保存为文件，然后另外的程序用TclientDataset.LoadFromFile即可。

Answer 4

楼上的方法就是最简单的，恩当然如果你想这个中间文件具有一些可读性的化，可以保存xmldata，并读取xmldata，都是一样的

Answer 5

做XML格式的文件就可以了
具体可以参考，tclientDataSet.saveTofile生成的文件

Answer 6

我是这样做的
var
   CD:TClientDataset;
   i:Integer;
begin
  CD := TClientDataset.Create(nil);
CD.FieldDefs.Add('id',ftString, 30, False);
CD.FieldDefs.Add('name',ftString, 20, False);
CD.FieldDefs.Add('msg',ftString, 20, False);
CD.FieldDefs.Add('state',ftString, 20, False);
CD.CreateDataSet;
CD.Open;  for i :=1  to 5 do
  begin
    CD.Append;
    CD.Fields[0].AsInteger:=i;
    CD.Fields[1].AsString := 'sss';
    CD.Fields[2].AsString := 'ddd';
    CD.Fields[3].AsString := 'fff';
  end;
在外部程序中怎么样进行读取呢？

Answer 7

晕!楼上几位都说得很清楚啦!var
   CD:TClientDataset;
   i:Integer;
begin
  CD := TClientDataset.Create(nil);
CD.FieldDefs.Add('id',ftString, 30, False);
CD.FieldDefs.Add('name',ftString, 20, False);
CD.FieldDefs.Add('msg',ftString, 20, False);
CD.FieldDefs.Add('state',ftString, 20, False);
CD.CreateDataSet;
CD.Open;  for i :=1  to 5 do
  begin
    CD.Append;
    CD.Fields[0].AsInteger:=i;
    CD.Fields[1].AsString := 'sss';
    CD.Fields[2].AsString := 'ddd';
    CD.Fields[3].AsString := 'fff';
  end;
  
  CD.SaveToFile('c:\mydata.xml', dfXML);
----------------------------------------------------------------------
在外部程序中:CD := TClientDataSet.Create(nil);
CD.LoadFromFile('c:\mydata.xml');