Сравнение 2х DBGrid'ов и StringGrid'а

[nactyx]

Всем доброго времени суток!

Суть проблемы: имеется два DBGrid'а, первый со столбцами Login и ФИО, а второй только со столбцом Login. И третья таблица - StringGrid, тоже со столбцами Login и ФИО. Необходимо сравнить данные из столбцов Login между всеми тремя таблицами и в следующие три StringGrid'a вывести Login'ы среди которых исключены те, которые имеются в каждой из трех верхних таблиц. Т.е. если логин есть во всех трех - его не выводить далее.

[Dvoishnik]

сравниваете данные из таблицы БД/запроса к тоторой подключен первый DBGrid с данными из таблицы БД/запроса второго DBGrid и данными из StringGrid в чем проблема то?? что не получается?

[nactyx]

Это все конечно чудесно и очевидно, спасибо.

Проблемы две: из-за того, что это не три стрингрида или например три дбгрида, а разные: 2 таких и один другой.
И вторая проблема в том, что количество строк не одинаковое! Поэтому я и в ступоре.

[evg_m]

Проблемы две: из-за того, что это не три стрингрида

т.е. код для ДВУХ STRINGGRID вы написать можете (и значит можете ЭТОТ код исправить и адаптировать для себя)

for i:=1 to StringGrid2.rowcount-1 do begin
  for j:=1 to StringGrid1.Rowcount-1 do begin
    if StringGrid2.cell[1,i] =StringGrid1.Cell[1,j] then begin
        .........
    end
    else begin
        ..........
    end;
  end;
end;

А ВОТ тот же АЛГОРИТМ для разных (DBGrid + StringGrid )

DBgrid1.DataSource.DataSet.first;
while not DBGrid.Datasource.DataSet.EOF do begin
  for j:=1 to StringGrid1.rowcount-1 do begin
    if DBGrid1.DataSource.DataSet.FieldByName('fio').AsString =StringGrid1.Cell[1, j] then
            ............
    end
    else begin
            ............
    end;
  end;
  DBGrid1.DataSource.DataSet.Next;
end;

[nactyx]

То, что нужно, спасибо большое!
А два DBGRID'a как сравнивать правильно?

DBgrid1.DataSource.DataSet.first;
while not DBGrid1.Datasource.DataSet.EOF do begin
  DBgrid2.DataSource.DataSet.first;
  while not DBGrid2.Datasource.DataSet.EOF do begin
    if DBGrid1.DataSource.DataSet.FieldByName('fio').AsString = DBGrid2.DataSource.DataSet.FieldByName('fio').AsString then
            ............
    end
    else begin
            ............
    end;
    DBGrid2.DataSource.DataSet.Next;
  end;
  DBGrid1.DataSource.DataSet.Next;
end;

Так правильно будет?

[nactyx]

Фигня получается. Мне нужно чтобы сперва один элемент dbgrid сравнили со всеми из stringgrid, если не нашли совпадений - запомнили, иначе - другие действия, не суть.
А в этом случае получается, из-за того, что разное количество и порядок записей он может хоть все вывести, хотя повторения есть, но на других позициях.

[nactyx]

Со всеми вопросами разобрался. Осталось реализовать удаление дубликатов из итогового стрингрида.

[evg_m]

т.е. код для ДВУХ STRINGGRID вы написать можете (и значит можете ЭТОТ код исправить и адаптировать для себя)

нет?

for i:=1 to StringGrid2.rowcount-1 do begin 
  s:=StringGrid2.cell[1,i];
  r:=false;
  for j:=1 to StringGrid1.rowcount-1 do begin
    if StringGrid1.cell[1,i] =s then r:=true;
    if r then break;
  end;
  if not r then 
      .....
  else 
     ....
end;