在没有 SQL 的情况下比较 Delphi 中的表

Question

我在 Delphi 的 Paradox 数据库中使用表时遇到问题。

我需要比较两个表并验证哪些字段相同，哪些字段不同。最后，两个表的字段必须包含相同的值。

但是，一切都必须在不使用 SQL 的情况下完成，只使用纯 Delphi。

这是目前的代码，但我没有得到预期的结果：

procedure TForm1.Button3Click(Sender: TObject); 
  var  
  s1,s2:string;  
begin  
  Table1.First;  
  while not (Table1.Eof) do  
  Begin 
      s1 := Table1.FieldByName('Campo').AsString; 
      Table2.First; 
      while not (Table2.Eof) do 
      Begin 
          s2 := Table2.FieldByName('Campo').AsString; 

          if (s1 <> s2) then 
          begin 
            Table2.Append; 
            Table2.FieldByName('Campo').AsString := 
                Table1.FieldByName('Campo').AsString; 
          end 
          else if (s1 = s2) then 
          begin 
            Table2.Next; 
          end; 

          Table2.Next; 
      End; 
      Table1.Next;  
  End;
End;

Answer 1

您需要进行两次传递才能将丢失的数据从一张表复制到另一张表中。最简单的方法是只创建一个过程来为您执行此操作，然后调用它两次：

procedure TForm1.CopyData(const Src, Dest: TTable);
var
  CompareVal: string;
begin
  Src.First;
  while not Src.Eof do
  begin
    CompareVal := Src.FieldByName('Campo').AsString;
    if not Dest.Locate('Campo', CompareVal, []) then
    begin
      Dest.Insert;     // Or Dest.Append;
      Dest.FieldByName('Campo').AsString := CopmareVale;
      Dest.Post;
    end;
    Src.Next;
  end;
end;

这样称呼它：

procedure TForm1.Button3Click(Sender: TObject);
begin
  CopyData(Table1, Table2);
  CopyData(Table2, Table1);
end;

如果数据库不是很大，这可以正常工作。如果是，您可以通过在要比较的字段上添加索引来提高性能。请参阅TDataSet.Locate 的 Delphi 帮助，其中包含更多信息和一些指向可能有帮助的其他主题的链接。 （链接是当前的 Delphi 帮助，但该信息大部分也适用于 Delphi 7。）

Answer 2

通读Table2 的所有记录，并将Table2.FieldByName('Campo').AsString 值放入已排序的TStringList 中。然后遍历Table1 的记录并检查stringList.IndexOf 中的所有Table1.FieldByName('Campo').AsString。当IndexOf 返回-1 时，将记录追加到Table2。切换Table1 和Table2 并重复。