|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.07.2013, 11:58 | #1 |
Пользователь
Регистрация: 26.12.2009
Сообщений: 95
|
совсем запутался в if then, else begin
есть вот такой рабочий код
Код:
Код:
если все проверки пройдены то должно быть Код:
|
08.07.2013, 15:46 | #2 |
Homo Interneticus
Форумчанин
Регистрация: 04.03.2011
Сообщений: 611
|
Оформите проверку функцией, как-нибудь так:
Код:
Код:
Последний раз редактировалось astecenko; 08.07.2013 в 15:49. |
09.07.2013, 09:29 | #3 |
Пользователь
Регистрация: 26.12.2009
Сообщений: 95
|
спасибо, удобнее) у меня тоже получилось но громоздко
Код:
|
09.07.2013, 09:39 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
undead92, кто Вас учил так форматировать код?!!
Немудрено в таком коде запутаться! сравните с Код:
p.s. хотя, я тоже за то, чтобы выносить код в отдельные функции/процедуры. Это и удобнее, и нагляднее, и отладку упрощает... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как составить SQL запрос(запутался совсем) | Messir_Leonard | SQL, базы данных | 2 | 17.03.2013 15:22 |
procedure TForm1.Timer1Timer(Sender: TObject); var h:hwnd; begin //if f1 if getasynckeystate($20)<>0 then begin if FindWin | Kazik | Помощь студентам | 2 | 18.11.2012 20:44 |
Ошибка BEGIN | nemq | Помощь студентам | 6 | 01.01.2010 11:33 |