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

[pan666]

我有两张表table1与table2，如何比较两个的字段是否相等，若相等则写到一个串中
例如：
table1：id name sex address
table2：id name address
串为：dd:=id+name+address
请问该如何实现？谢谢！

[netlib]

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

[chechy]

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;