| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Массивы

Revan ©   (2006-03-28 13:01:00) 

Здравствуйте! У меня такой вопрос, вернее такой кусок программы который должен работать, но увы... Происходит проверка главной диоганали, она должна быть упорядочена. Помогите, пожалуйста...

For i:=0 to StringGrid1.ColCount-1 do
For j:=0 to StringGrid1.RowCount-1 do
Begin

if (i<>StringGrid1.ColCount-1) and (j=i) and
(StringGrid1.Cells[i,j]<StringGrid1.Cells[i+1,i+1]) then
inc(bol);
end;
if bol=StringGrid1.ColCount-1 then
Edit2.Text:='Упорядочен'
else
Edit2.Text := 'Не упорядочен';

end;

---

Ega23   (2006-03-28 13:09:00) [1]

Сильно в подробности не вдавался, но может быть:

(StringGrid1.Cells[i,j]<StringGrid1.Cells[i+1, j+1]

?

---

Рамиль   (2006-03-28 13:09:00) [2]

А тебе точно строки надо сравнивать?
И зачем цикл по по всем элементам?

---

Наверх