|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.01.2012, 01:13 | #1 |
Форумчанин
Регистрация: 28.09.2010
Сообщений: 246
|
Остановить процес при условии
Есть условие.
if Edit1.Text = '1' then Label 1.Caption := '1' if Edit1.Text = '2' then Label 1.Caption := '5' Условие: Если текст первого Эдита равен 1 то присвоить Label название 1. И после этого останговить процес. Если же текст первого Эдита не равен 1 то нужно выполнить другую операцию if Edit1.Text = '2' then Label 1.Caption := '5' и т.д. То есть будет еще if Edit1.Text = '3' then Label 1.Caption := '8' if Edit1.Text = '4' then Label 1.Caption := '10' Условие должно выполняться до первого совпадения. Пока текст Эдита не совпадает с теми цифрами что надо - проверять каждый Эдит. А как только будет первое совпадение. Тогда остановить. Пробовал так: procedure TForm1.N1Click(Sender: TObject); if Edit1.Text = '1' then Label 1.Caption := '1'; exit if Edit1.Text = '2' then Label 1.Caption := '5'; end; Но это не то.
Смотреть фильмы HD Фильмы для планшетов
|
12.01.2012, 01:17 | #2 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
1)ну тут у вас в принципе два условия одновременно не выполняться.
2)насчет примера с exit, а кто операторные скобки будет применять? 3)можно еще применить if then else if ... Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запуск макроса при условии | Сергей846 | Microsoft Office Excel | 9 | 01.11.2011 17:51 |
удаление строки при условии | horpenst | Microsoft Office Excel | 6 | 30.03.2011 14:31 |
Освобождение памяти при условии | Кипящий чайник | Общие вопросы C/C++ | 2 | 23.11.2010 17:31 |
Вывод ошибки при условии.... | Arinka | Помощь студентам | 8 | 05.06.2010 14:54 |
Разметка страницы при условии | axaptaalex | Microsoft Office Excel | 2 | 20.03.2009 18:36 |