Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Сравнение ячеек StringGrid

Ответить
Настройки темы
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

 

Аватара для opel431

Ветеран


Contributor


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

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

Цитата Snake750:
for i:=1 to 3 do
begin
for j:=1 to 3 do »
так сам дважды for i:=1 to 3 do прокачиваешь

-------
Хвала тому, кто встав среди камней, уча другого, сам будет умней.

Последний раз редактировалось opel431, 21-03-2010 в 02:18.

Отправлено: 01:57, 21-03-2010 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Snake750

Старожил


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

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

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

Отправлено: 09:32, 21-03-2010 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Сравнение ячеек StringGrid

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Delphi - Раскраска ячеек StringGrid pirojok750 Программирование и базы данных 10 26-10-2009 17:26
Delphi - [решено] Обработка StringGrid noname_06 Программирование и базы данных 5 19-01-2009 16:39
[решено] Сравнение ячеек в БД (SQL или access) sidorova Программирование и базы данных 12 27-08-2006 13:21
DBGrid (Stringgrid) и Win API Partizan Программирование и базы данных 1 13-09-2004 12:03
Delphi - StringGrid в Delphi 6 LedWorm Программирование и базы данных 1 16-02-2004 08:02


« Предыдущая тема | Следующая тема »


 
Переход