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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2010, 15:08   #1
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию небольшое затруднение

как сделать что бы выводилось сообщение showmessage('Введите данные'); когда в полях edit1 , edit2, edit3 ничего не написано, а если написано выполнялось дальше действие??
cargo29 вне форума Ответить с цитированием
Старый 22.12.2010, 15:20   #2
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

if (edit1.text<>'') and (edit2.text<>'') and (edit3.text<>'') then showmessage('Введите данные');
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 22.12.2010, 15:24   #3
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

Код:
if (edit1.text='') or (edit2.text='') or (edit3.text='') then 
begin
showmessage('Введите данные');
Exit;
end else
//код
_SERGEYX_ вне форума Ответить с цитированием
Старый 22.12.2010, 15:25   #4
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

Наверно здесь or уместней... Хотя лучше бы уточнить у ТС - Когда во всех полях пусто или когда хотя бы в одном из указанных полей.

_SERGEYX_, когда писал пост, твоего кода еще не было
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 22.12.2010, 15:28   #5
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

Цитата:
Сообщение от grafgrial Посмотреть сообщение
if (edit1.text<>'') and (edit2.text<>'') and (edit3.text<>'') then showmessage('Введите данные');
Код:
if (edit1.text<>'') and (edit2.text<>'') and (edit3.text<>'') then
showmessage('Введите данные');
else
edit4.Enabled:=true;
edit5.Enabled:=true;
edit4.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit3.Text));
edit5.Text:=floattostr(strtofloat(edit2.Text)/strtofloat(edit3.Text));
где тут ошибка подчеркивает слово else
cargo29 вне форума Ответить с цитированием
Старый 22.12.2010, 15:32   #6
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

точку с запятой убрать надо
_Engine_ вне форума Ответить с цитированием
Старый 22.12.2010, 15:47   #7
cargo29
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 603
По умолчанию

Всем спасибо )))
cargo29 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
затруднение с модулями samoe Паскаль, Turbo Pascal, PascalABC.NET 2 24.08.2010 23:22
Тривиальное затруднение GoodTimes Общие вопросы C/C++ 2 10.05.2010 22:28
небольшое уточнение Golovastik Общие вопросы C/C++ 5 17.07.2009 22:22
Небольшое тестирование merax Софт 3 17.08.2008 19:11