Текущий архив: 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.029 c
