Программирование delphi, проблема с запуском кода. - Вопросы по Delphi

Вопрос Программирование delphi, проблема с запуском кода.

Регистрация
24 Ноя 2013
Сообщения
94
Репутация
-13
Спасибо
0
Монет
0
Не могу понять что не так с end'ами. Пишет E2029 expected but `end` found



875a8375f91de049494d6073098e8a2f_73488ee1ce68d84d0b14d4ae6ff2fc80.png

 
Регистрация
14 Июн 2013
Сообщения
81
Репутация
0
Спасибо
0
Монет
0
Запутался где-то в логических скобках.
Возьми себе за правило не использовать вложенные условные операторы и будет тебе счастье.
Еще одно правило - не пихать никакой код в форму. Форма должна собирать необходимые данные, передавать их на обработку некоему движку, и выводить результат, который он вернет. Весь код на твоей кнопке должен выглядеть примерно так:

Edit4.Text := SomeStaticClass.SomeStaticMethod(
StrToFloat(Edit1.Text),
StrToFloat(Edit2.Text),
StrToFloat(Edit3.Text)
).ToString();
И тогда не будет никаких проблем с end'ами чисто из-за их отсутствия.
 
Регистрация
12 Авг 2013
Сообщения
83
Репутация
0
Спасибо
1
Монет
0
Посчитай, сколько '(' и сколько ')' в строке ПЕРЕД выделенным как ошибка end.
Их кол-во не совпадает. И ошибка именно в этом: ты написал end, не завершив математическое выражение выше. И это у тебя в нескольких местах.

И, нет - мой тёзка ошибается: в Pascal / Delphi перед end точка с запятой НЕ ставится.
 
Сверху Снизу