Delphi 內存数据表

 

1. function   CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;
2. var
3.      TempTable:TClientDataSet;
4. begin
5.   TempTable:=nil;
6.   Result:=nil;
7. if   AFieldDefs<>nil   then
8.   begin
9.    try
10.       TempTable:=TClientDataSet.Create(Application);
11.       TempTable.FieldDefs.Assign(AFieldDefs);
12.       TempTable.CreateDataSet;
13.       Result:=(TempTable   as   TDataSet);
14. Except
15.     if   TempTable<>nil   then
16.              TempTable.Free;
17.        Result:=nil;
18.     raise;
19.     end;
20.     end;
21. end;

1. procedure TForm1.btn1Click(Sender: TObject);
2. var
3.   ADataSet:TDataSet;
4. begin
5.   ADataSet:=TDataSet.Create(Self);
6.   with   ADataSet.FieldDefs   do
7.    begin
8.     Add('Name',ftString,30,False);
9.     Add('Value',ftInteger,0,False);
10.    end;
11.   with   DataSource1   do
12.    begin
13.     DataSet:=CreateTableInMemory(ADataSet.FieldDefs);
14.     DataSet.Open;
15.     DataSet.Append;
16.     DataSet.FieldByName('Name').AsString:='Woody';
17.     DataSet.FieldByName('Value').AsInteger:=9527;
18.     DataSet.Post;
19.    end;
20.   ADataSet.Free;
21. end;