求教：如何判断两个数据库中的记录是否一致

Question

function CheckIsSame(A, B: TDataSet): Boolean;
var I: Integer;
    S: string;
begin
  Result := True;
  for I := 0 to B.FieldCount - 1 do
  begin
    s := B.Fields[I].FieldName;
    if B.FieldValues[s] <> B.FieldValues[s] then
    begin
      Result := False;
      Exit;
    end;
  end;
end;

Answer 1

function CheckIsSame(A, B: TDataSet): Boolean;
var I: Integer;
    S: string;
begin
  Result := True;
  for I := 0 to B.FieldCount - 1 do
  begin
    s := B.Fields[I].FieldName;
    if B.FieldValues[s] <> A.FieldValues[s] then
    begin
      Result := False;
      Exit;
    end;
  end;
end;