Тема: В чем ошибка?
Показать сообщение отдельно
  #2  
Старый 09.06.2010, 16:57
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Первая здесь:
Код:
if (sqrt(sqr(b1-a1)=sqr(b2-a2))=sqr(b3-a3)then
Видимо должно быть:
Код:
if (sqrt(sqr(b1-a1)-sqr(b2-a2))=sqr(b3-a3)then

Во второй - индексы в гриде начинаются с 0.
Ответить с цитированием