|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.01.2009, 11:15 | #1 |
Форумчанин
Регистрация: 05.05.2007
Сообщений: 236
|
Создание своей процедуры
я пишу тестированную программу. создал свою процедуру для заполнения одного поля. но когда я прописовал команду в BitBtn1:
procedure TForm2.BitBtn1Click(Sender: TObject); begin if Form2.Ank then begin Form3.Show else MessageDlg('Введите все поле!', mtInformation, [mdOk], 0); end; end; посматрите где ошибка и подскажите где ошибка. а моя процедура такая: procedure TForm2.Ank; begin fio.Text:=''; klass.Text:=''; minute.Text:=''; pred.Text:=''; teacher.Text:=''; voprese.Text:=''; end; |
11.01.2009, 11:58 | #2 |
Пользователь
Регистрация: 13.12.2008
Сообщений: 33
|
Попробуй вот так:
procedure TForm2.BitBtn1Click(Sender: TObject); begin if Form2.Ank then begin Form3.Show else MessageDlg('Введите все поле!', mtInformation, [mdOk], 0); end; end; function TForm2.Ank:boolean; begin if (fio.Text='')or (klass.Text='')or (minute.Text='')or (pred.Text:='')or (teacher.Text='')or (voprese.Text='') then result:=false else result:=true; end; |
11.01.2009, 15:02 | #3 |
Форумчанин
Регистрация: 05.05.2007
Сообщений: 236
|
|
11.01.2009, 15:05 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Код:
Код:
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
11.01.2009, 21:38 | #5 |
Форумчанин
Регистрация: 02.01.2009
Сообщений: 340
|
Код:
Код:
Код:
DelphiWorld 6. Скачай, поставь, и будет тебе счастье=) Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.
|
12.01.2009, 08:12 | #6 | |
Форумчанин
Регистрация: 05.05.2007
Сообщений: 236
|
Цитата:
|
|
12.01.2009, 08:29 | #7 |
Бредовый
Форумчанин
Регистрация: 15.11.2008
Сообщений: 285
|
begin end убери.
#6 это не готовый пример дали, а подсказали где ошибка.
Чем точнее и проще задан вопрос, тем проще на него получить точный ответ.
Последний раз редактировалось Deight; 12.01.2009 в 08:32. |
12.01.2009, 15:17 | #8 |
Форумчанин
Регистрация: 02.01.2009
Сообщений: 340
|
kuzmich у тебя else попал вовнутрь begin..end, то есть он относится не к оператору if..then..else, если б к моему коду предыдущему повнимательнее присмотрелся, увидел бы..
DelphiWorld 6. Скачай, поставь, и будет тебе счастье=) Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запуск процедуры из процедуры с дополнением | 1sal1 | Общие вопросы Delphi | 3 | 06.10.2008 21:54 |
Регистрация своей функции | Иллидан | Microsoft Office Excel | 7 | 29.09.2008 07:37 |
Создание своей сводной таблицы... | Bu$ter | Microsoft Office Excel | 4 | 17.06.2008 14:30 |
создание своей кнопки | А. Долматов | Компоненты Delphi | 8 | 27.08.2007 17:54 |