TDataset 和 TMemDataset

Question

我需要迭代多个 MySQL 查询并将它们保存在 TMemDataset 数组中。这似乎可以做到这一点：

MemDataset1.CopyFromDataset(ZQuery1,True); 

但是，每次查询更改时，所有先前的 TMemDataset 都会更改为包含新值（我猜是因为它们是“数据感知组件”）。如果我使用 ZQuery1.Free 删除 ZQuery1，那么所有数据都会消失。我该如何避免这种情况？

我正在使用 FreePascal，但我打赌 Delphi 的解决方案也适用。

Answer 1

解决方案是拥有一个 ZQuery 数组以及一个 MemDataSet 数组。

type
  TZQueries = array of TZQuery;
  TMemDataSets = array of TMemDataset;

procedure Test;
var
  ZQueries: TZQueries;
  MemDatasets: TMemDatasets;
  i: integer;
begin
  try
    SetLength(ZQueries,10);
    SetLength(MemDatasets,10);
    for i:= Low(ZQueries) to high(ZQueries) do begin
      ZQueries[i]:= TZQuery.Create;
      ZQueries[i].Connection:= ZConnection1;
      ZQueries[i].SQL.Text:= QueryTextFromSomewhere
    end; {for i} 
    for i:= Low(MemDatasets) to High(MemDatasets) do begin
      MemDatasets[i]:= TMemDataset.Create;
      ZQueries[i].Open;
      MemDatasets[i].CopyFromDataset(ZQueries[i],True);
    end; {for i}
    ....
      code to process the memdatasets
    ....
  finally
    for i = Low(ZQueries) to High(ZQueries) do begin
      ZQueries[i].Free;
    end; {for i}
    for i = Low(MemDatasets) to High(MemDatasets) do begin
      MemDatasets[i].Free;
    end; {for i}
  end; {tryf}
end;

类似的东西应该可以工作，因为现在查询和内存数据集之间不再存在混淆。