Текущий архив: 2006.04.09;
Скачать: CL | DM;

Вниз

Массивы   Найти похожие ветки 

← →
Revan   (2006-03-28 13:01) [0]

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

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) [1]

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

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

?

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.061 c