Сверка значений в 2-х StringGrid-ах

[artemavd]

Не знаю как его к своей задаче приделать. Вообщем, я решил сделать не закрашивание, а вывод в Memo тех значений, которых нет ни в той ни в другой таблице. Но вот запутался с циклом немного:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 i,j,i1,j2: integer;
begin
 for i:=1 to Form1.SG1.RowCount - 1 do
 for i1:=1 to Form1.SG2.RowCount - 1 do
 begin
  begin
   if Form1.SG1.Cells[1,i] <> Form1.SG2.Cells[3,i] then
   begin
    Form1.Memo1.Lines.Add(Form1.SG1.Cells[1,i]);
   end;
  end;
 end;
end;

Но цикл получается очень долгим и выводит непонятно что

[DIgorevich]

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

...
Но цикл получается очень долгим и выводит непонятно что

А что именно он неверно выводит? Судя по коду, всё должно правильно работать.

[artemavd]

Он выводит какое-то большое повторяющиеся значения... Где-то в нем неправильно написано. Может в этой строке:

 Form1.Memo1.Lines.Add(Form1.SG1.Cells[1,i]);

???

Нужно в Memo1 получить следующее: нужно получить список всех номеров из таблицы SG2, которых нет в таблице SG1. Именно из второй таблицы, а столбцы между собой должны сраниваться.

[DIgorevich]

Ну во-первых, счетчик второй таблицы не тот:

var
 i,j,i1,j2: integer;
begin
 for i:=1 to Form1.SG1.RowCount - 1 do
 for i1:=1 to Form1.SG2.RowCount - 1 do
 begin
  begin
   if Form1.SG1.Cells[1,i] <> Form1.SG2.Cells[3,i1] then
   begin
    Form1.Memo1.Lines.Add(Form1.SG2.Cells[1,i1]);
   end;
  end;
 end;

, а во-вторых, значения и будут повторяться, т.к. идет проверка на НЕсоответствие.

[artemavd]

А если я поставлю вместо "<>" "=", то по логике работы цикла я в Мемо1 получу все значения из SG2, которых нет в SG1?

[DIgorevich]

В общем решил разобраться и сделать:

var
 i,j,i1,j2: integer;
 ravno:boolean;
begin
 for i:=1 to Form1.SG2.RowCount - 1 do   // проверяем значения второй таблицы
   begin
   ravno:=false; 
     for i1:=1 to Form1.SG1.RowCount - 1 do //проверяем значения первой таблицы
       begin
         if Form1.SG2.Cells[3,i] = Form1.SG1.Cells[1,i1] then
         begin
            ravno:=true; // если совпадения есть то ничего не будет в мемо
         end;
       end;
    if ravno=false then //если нет совпадений
      memo1.Lines.Add(Form1.SG2.Cells[3,i]); //записываем отсутствующее
   end;

Проверяй.

[artemavd]

memo1.Lines.Add(Form1.SG2.Cells[3,i]); //записываем отсутствующее

То есть записываем в Мемо1 те, которых нет в SG2 ?

[DIgorevich]

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

То есть записываем в Мемо1 те, которых нет в SG2 ?

Нет. Записываться будут значения из SG2, которых нет в SG1.

[artemavd]

Понятно .

[DIgorevich]

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

Понятно .

Это значит "помогло" или как? А... всё увидел помогло