Delphi - Сравнение ячеек StringGrid

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Delphi - Сравнение ячеек StringGrid

Snake750

Старожил

Сообщения: 175
Благодарности: 0

Профиль | Отправить PM | Цитировать

Доброго времени суток.Подскажите пожалуйста как сравнить ячейки StringGrid1 и StringGrid2.
В обоих стриннгридах занесены значения строкового типа вида

Цитата:

x y
1 2
3 4
5 6

Сначала необходимо сравнить иксы и если они равны то сравнить игрики.
Если игрики равны то записать в мемо что строки равны иначе вывести в мемо что строки не равны
Вот мой код,у меня почему то выводит не 3 строчки как должно было быть а 3 раза по 3 строчки

Код:

procedure TForm1.Button2Click(Sender: TObject);  
 var 
 i:integer; 
 j:integer;  
begin  
 for i:=1 to 3 do 
   begin     
     for j:=1 to 3 do     
        if stringgrid1.Cells[i,j]=stringgrid2.Cells[i,j]         
       then            
         if stringgrid1.Cells[i+1,j]=stringgrid2.Cells[i+1,j]        
         then  
            memo3.Lines.add(inttostr(j)+'Строка равны')        
         else
            memo3.Lines.add(inttostr(j)+'Строки не равны');   
    end;  
end;

И вот то что я получаю

Цитата:

1Строка равны
2Строки не равны
3Строка равны
1Строка равны
3Строка равны
1Строка равны
2Строка равны
3Строка равны

А должен получить

Цитата:

Строки равны
Строки равны
Строки равны

Гляньте свежим взглядом, я сам найти проблему не могу

Отправлено: 01:37, 21-03-2010