|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Сравнение двух DataSet
Доброго времени суток!
Нужен совет! Хочу сделать утилиту, которая бы сравнивала в форме (Delphi) два справочника. Один из 1С (MSSQL), другой из FireBird. Планировал разместить на форме 2 DataSet, один из ADO другой FibPlus и как то построчно их сравнить. Весь вопрос в этом "как то". Как это реализовать? |
#2
|
|||
|
|||
Цитата:
Ну, есть вариант "свалить" их в одну БД и там уже сравнивать средствами 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; |