如何手动创建结果集 ， 手工添加字段 数据 不和任何数据库相关 能否实现啊？急

Question

如何手动创建结果集 ， 手工添加字段 数据  不和任何数据库相关 能否实现啊？急

Answer 1

内存表?
在DELPHIBOX见过这样的第三方的
不过这样有什么用?

Answer 2

function CreateTableInMemory(const AFieldDefs: TFieldDefs): TDataSet;
var
   TempTable :TClientDataSet;
 begin
   TempTable:=nil;
   Result:=nil;
   if AFieldDefs<>nil then
   begin
     try
     TempTable:=TClientDataSet.Create(nil);
     TempTable.FieldDefs.Assign(AFieldDefs);
     TempTable.CreateDataSet;
     Result:=TempTable as TDataSet;
     Except
       if TempTable<>nil then
         begin
           TempTable.Free;
           Result:=nil;
         end;
     end;
   end;
 end;

Answer 3

var
  myDataSet:TClientDataSet;
begin
  myDataSet := TClientDataSet.Create(application);
  myDataSet.FieldDefs.Add('name',ftstring,10);
  myDataSet.FieldDefs.add('age',ftinteger);
  myDataSet.CreateDataSet;  myDataSet.Active := true;
  myDataSet.AppendRecord(['張三',10]);
  myDataSet.AppendRecord(['李四',40]);
  mydataset.Post;
end;