Цитата:
Сообщение от 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;