在DELPHI10.3中如何将两个MemTable合并成一个包含各自字段的MemTable？

在Delphi 10.3中，如果你有两个 MemTable（内存表），想要将其合并成一个新的 MemTable，你可以按照以下步骤操作：

1. 首先，创建一个新的空 MemTable，这将是结果集：

   var
     ResultTable: TTable;
   begin
     ResultTable := TTable.Create(nil);
   end;

2. 确定每个 MemTable 中需要保留的公共字段，并检查它们是否已经存在于新表中。如果不存在，就需要添加到新表中：

   if not ResultTable.FieldExists('CommonField1') then
     ResultTable.AddField('CommonField1', ftString); // 举例是一个字符串字段

   for Field in OldTable1.Fields do
   begin
     if Field.FieldName <> 'CommonField1' and Field.FieldName <> 'CommonField2' then // 示例中的其他共同字段
       ResultTable.AddField(Field);
   end;

   for Field in OldTable2.Fields do
   begin
     if Field.FieldName <> 'CommonField1' and Field.FieldName <> 'CommonField2' then
       ResultTable.AddField(Field);
   end;

3. 分别遍历原始的 MemTable，将数据插入到新表中：

   for Row in OldTable1.Rows do
   begin
     var NewRow: TTableRow;
     NewRow := ResultTable.New;
     try
       for i := 0 to OldTable1.FieldCount - 1 do
         if ResultTable.FieldByName(OldTable1.Fields[i].FieldName).IsField then
           NewRow.Values[OldTable1.Fields[i].Index] := Row.Values[i];
       NewRow.Post; // 插入行
     finally
       NewRow.Free;
     end;
   end;

   repeat
     for Row in OldTable2.Rows do
     begin
       // 类似于上述循环，处理OldTable2的数据
     end;
   until OldTable2.Count = 0;

4. 最后，确保处理了第二个 MemTable 的所有数据。