[PunK_HS]

Доброго времени суток!
Нужен совет! Хочу сделать утилиту, которая бы сравнивала в форме (Delphi) два справочника.
Один из 1С (MSSQL), другой из FireBird. Планировал разместить на форме 2 DataSet, один из ADO другой FibPlus и как то построчно их сравнить. Весь вопрос в этом "как то". Как это реализовать?

[lmikle]

Сообщение от PunK_HS

Доброго времени суток!
Нужен совет! Хочу сделать утилиту, которая бы сравнивала в форме (Delphi) два справочника.
Один из 1С (MSSQL), другой из FireBird. Планировал разместить на форме 2 DataSet, один из ADO другой FibPlus и как то построчно их сравнить. Весь вопрос в этом "как то". Как это реализовать?

Ну, есть вариант "свалить" их в одну БД и там уже сравнивать средствами SQL. Если так делать не хочется, то делаешь вложенный цикл с сравниваешь по записи. Весь вопрос как ты хочешь отобразить результат сравнения.

ЗЫ. Для упрощения кода сравнения можно делать, например, так (не для всех типов полей подходит):

Код:

function IsRecordsEqual(DataSet1, DataSet2 : TDataSet) : Boolean;
var
  I : Integer;
begin
  Result := DataSet1.FieldsCount = DataSet2.FieldsCount;
  If Result Then
    For I := 0 To DataSetFieldsCount-1 Do
      Begin
        Result := DataSet1.Fields[i].Value = DataSet2.Fields[i].Value;
        If Not Result Then Break;
      End;
end;