Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 21.01.2011, 23:55   #1
igabenu
Пользователь
 
Регистрация: 05.11.2010
Сообщений: 27
Репутация: 10
По умолчанию Как остановить выполнение button.onclick?

Всем привет, возник вопрос:

Как реальзовать данный код правильно?

Код:

procedure TForm1.Button1Click(Sender: TObject);
  if pos('something',there) <>0 then
    begin
   //  Button1Click прекращает выполняться, но приложение остаеться работать
     end
     else
    // Button1Click продолжает работать по дальнейшему коду
     end;

Подскажите, как правильно реализовать данные примечания?
igabenu вне форума   Ответить с цитированием
Старый 22.01.2011, 00:02   #2
Пепел Феникса
Модератор
Заслуженный модератор
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Адрес: Москва
Сообщений: 21,006
Репутация: 3402

icq: 446843180
skype: phoenix_proger
По умолчанию

exit; это выход из подпрограммы.
__________________
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума   Ответить с цитированием
Старый 22.01.2011, 00:12   #3
igabenu
Пользователь
 
Регистрация: 05.11.2010
Сообщений: 27
Репутация: 10
По умолчанию

Добавляю exit, дельфи пишет Compiling Project1.dproj (Debug configuration)
В чем может быть проблема?
Application.terminate вместо exit'а работает, но мне нужно не чтобы программа закрывалась, а чтобы процедура завершила свою работу


Код:

procedure TForm1.Button1Click(Sender: TObject);

  if pos('something',there) <>0 then

    begin

   exit;   //  Button1Click прекращает выполняться, но приложение остаеться работать

     end

     else

    // Button1Click продолжает работать по дальнейшему коду

     end;

igabenu вне форума   Ответить с цитированием
Старый 22.01.2011, 00:24   #4
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,942
Репутация: 6285
По умолчанию

Или после ELSE нет BEGIN или END лишний
Аватар вне форума   Ответить с цитированием
Старый 22.01.2011, 00:30   #5
spamer
Software Developer
Профессионал
 
Аватар для spamer
 
Регистрация: 19.12.2008
Адрес: Ukraine, Kremenchug
Сообщений: 2,075
Репутация: 1142

skype: denis.piskunov.ua
По умолчанию

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  there: string;
begin
  there := ' there something ';
  if pos('something', there) <> 0 then
    Exit;

  ShowMessage('Test');
end;

__________________
Будь проще и люди к тебе потянутся
spamer вне форума   Ответить с цитированием
Старый 22.01.2011, 00:35   #6
igabenu
Пользователь
 
Регистрация: 05.11.2010
Сообщений: 27
Репутация: 10
По умолчанию

Разобрался спасибо, не работало exit по причини присутствия кнопки с аналогичным названием
igabenu вне форума   Ответить с цитированием
Старый 22.01.2011, 00:36   #7
Пепел Феникса
Модератор
Заслуженный модератор
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Адрес: Москва
Сообщений: 21,006
Репутация: 3402

icq: 446843180
skype: phoenix_proger
По умолчанию

Цитата:
не работало exit по причини присутствия кнопки с аналогичным названием
какая нафиг кнопка с названием exit?
вам spamer привел готовый пример.
__________________
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как остановить Excel kzld Microsoft Office Excel 5 07.11.2010 14:33
Как остановить программу Ayubkhon Общие вопросы Delphi 6 05.07.2010 09:59
Как остановить поток? pa6kevi4 Общие вопросы .NET 5 04.06.2010 17:28
Как остановить выполнение макроса ? kzld Microsoft Office Excel 2 19.07.2009 13:16
Как остановить процесс Volkogriz Общие вопросы Delphi 1 15.01.2009 11:40


16:18.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru