Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.07.2017, 10:15   #1
FirrtTrojan
Пользователь
 
Регистрация: 25.03.2017
Сообщений: 13
По умолчанию else if ошибка

procedure TForm1.Button1Click(Sender: TObject);
begin
if form2.ShowModal=mrok then
application.MessageBox(pchar(form2. edit1.text), 'Вы уверены в названии?', MB_OK);

Memo1.Lines.SaveToFile(form2.edit1. text+'.txt')
else if form2.ShowModal=mrcancel then
form1.ShowModal
end;

end.
FirrtTrojan вне форума Ответить с цитированием
Старый 30.07.2017, 11:38   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

О begin ... end слышал? И зачем ShowModa два раза?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 31.07.2017, 00:58   #3
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
И зачем ShowModa два раза?
Чем больше показов моды, тем лучше! "Для промфинплана и для нас".
northener вне форума Ответить с цитированием
Старый 31.07.2017, 11:27   #4
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
И зачем ShowModa два раза?
Например, если у формы более двух вариантов ModalResult. Хотя подозреваю, что как раз тут их всего два
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 31.07.2017, 11:49   #5
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Модальная, не модальная и чуть-чуть модальная?
p51x на форуме Ответить с цитированием
Старый 31.07.2017, 11:51   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

А вопрос то был о begin..end
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 31.07.2017, 11:56   #7
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Так во втором посте уже и ответили
p51x на форуме Ответить с цитированием
Старый 31.07.2017, 12:37   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Сообщение от Sciv Посмотреть сообщение
Например, если у формы более двух вариантов ModalResult. Хотя подозреваю, что как раз тут их всего два
ShowModal не просто результат возвращает, а еще как бэ и форму открывает со всеми вытекающими)) Так что один раз обратиться, запомнить результат и хоть 100 раз его анализировать
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 31.07.2017, 13:51   #9
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
ShowModal не просто результат возвращает, а еще как бэ и форму открывает со всеми вытекающими)) Так что один раз обратиться, запомнить результат и хоть 100 раз его анализировать
Не, ну понятно, что Вы или я сделали бы через один вызов формы:

Код:
MR := Form.ShowModal;
Case MR of
...
end;
Но это уже вопрос субъективного подхода к реализации

UPDATE

Хотя вот это похоже на танцы с бубном на костылепеде:

Код:
else if form2.ShowModal=mrcancel then
  form1.ShowModal
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...

Последний раз редактировалось Sciv; 31.07.2017 в 13:54.
Sciv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[РЕШЕНО] Помогите в чем может быть ошибка? Ошибка ';' expected but 'BEGIN' found АлександрDelphi Общие вопросы Delphi 7 06.03.2016 19:25
Java. Ошибка. Компилируется, но не запускается. Ошибка duplicate class. Проблема не в коде. nevender Общие вопросы по Java, Java SE, Kotlin 2 13.02.2016 13:24
Где ошибка в этом исходном коде на языке Си? Или ошибка в Excel? ArchiCurtis Помощь студентам 2 07.04.2012 14:16
Ошибка run-time Error 1004 общая ошибка ODBC kaval88 Microsoft Office Excel 0 27.02.2011 20:20
Ошибка в коде, ошибка в css или это проблема с совместимостью с браузерами? ankris HTML и CSS 5 23.11.2010 16:58