如何比较两张表的字段是否相等？

Question

if table1.fieldbyname('id').asinteger = table2.fieldbyname('id').asinteger then
showmessage(inttostr(table1.fieldbyname('id').asinteger)+':'+table1.fieldbyname('name').asstring);

Answer 1

function CompareTable(table1, table2: TDataSet): string;
var
i, j: Integer;
f: TField;
begin
Result := EmptyStr;
j := 0;
for i := 0 to table1.FieldCount - 1 do
begin
f := table2.FindField(table1.Fields[i].FieldName);
if (f <> nil) then
begin
  if j = 0 then
    Result := table1.Fields[i].FieldName
  else
    Result := Result + '+' + table1.Fields[i].FieldName;
  Inc(j);
end;
end;
end;