Lazarus 在 DataSet 转 MemDataSet

bugxiong

Pascal下 DataSet中的内容是非离线的，就是说需要与数据库保持联机，这样很不好，会弄出很多连接出来，不喜欢。
MemDataSet，是可以保存离线内容的，于是就有了这个方法。

1. function TformMain.DataSet2MDataSet(dataSet:TDataSet):TMemDataSet;
   
2. var
   
3.   i:Integer;
   
4.   strColumn,strType,strSize,strValue:string;
   
5.   mDataset:TMemDataSet;
   
6. begin
   
7.   //初始化
   
8.   mDataSet:= TMemDataset.Create(nil);
   
9.   //字段
   
10.   with dataSet do
    
11.   for i := 0 to FieldCount-1 do
    
12.   begin
    
13.      strColumn:= dataSet.Fields[i].FieldName;
    
14.      strType:= GetEnumName(TypeInfo(TFieldType),integer(dataSet.Fields[i].DataType)) ;
    
15.      strSize:= IntToStr(dataSet.Fields[i].DataSize);
    
16.      if strColumn ='SUMNUMBER'then
    
17.      Application.MessageBox(Pchar(strType),'',0);
    
18.      if (strType ='ftString') or (strType ='ftBCD')then
    
19.         mDataSet.FieldDefs.Add(strColumn, TFieldType(GetEnumValue(TypeInfo(TFieldType), strType)),StrToInt(strSize))
    
20.      else
    
21.         mDataSet.FieldDefs.Add(strColumn, TFieldType(GetEnumValue(TypeInfo(TFieldType), strType)));
    
22.   end;
    
23.   mDataSet.CreateTable;
    
24.   mDataSet.Open;
    
25. 
    
26.   //数据
    
27.   dataSet.First;
    
28.   with dataSet do
    
29.     while not dataSet.eof do
    
30.      begin
    
31.        mDataSet.Append;
    
32.        for i := 0 to FieldCount-1 do
    
33.         begin
    
34.             strValue:= dataSet.Fields[i].AsString;
    
35.             mDataSet.Fields[i].AsString:=strValue;
    
36.        end;
    
37.        dataSet.Next;
    
38.      end;
    
39.   Result:=mDataSet;
    
40. end;

复制代码