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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.01.2015, 12:35   #1
sdr1
Пользователь
 
Регистрация: 06.10.2014
Сообщений: 46
По умолчанию Несколько значений в edit

Ребят помогите разобраться,
вроде все очень просто ну что то не получается
Есть на форме Edit1, нужно если вводим в него вот эти цифры 1 или 3 или 7 или 9 то получается например showmessage.
Как так сделать? Делал с помощью if, перечислял с помощью Or не получается.
Код:
if edit1.Text:='1' or edit1.Text:='3'
sdr1 вне форума Ответить с цитированием
Старый 23.01.2015, 12:40   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Цитата:
if (edit1.Text:='1') or (edit1.Text:='3')
почитай приоритеты операций

Цитата:
И еще приравнивать в условиях нельзя.
У-у, слона то и не приметил
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 23.01.2015 в 12:44.
Аватар вне форума Ответить с цитированием
Старый 23.01.2015, 12:42   #3
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

Код:
if (edit1.Text:='1') or (edit1.Text:='3')
И еще приравнивать в условиях нельзя. Только =.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 23.01.2015, 12:43   #4
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

1. расставить скобки
2. заменить присвоение ":=" на сравнение "="
Код:
if ( edit1.Text:='1' )  or ( edit1.Text:='3' )
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 23.01.2015, 12:45   #5
sdr1
Пользователь
 
Регистрация: 06.10.2014
Сообщений: 46
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
почитай приоритеты операций
Код:
begin
if (edit3.Text:='1') or (edit3.Text:='3') then
begin
Label27.Caption := IntToStr(adoquery1.RecordCount)
end;
end;
получается ошибка Operator not applicable to this operand type
sdr1 вне форума Ответить с цитированием
Старый 23.01.2015, 12:47   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
edit3.Text:='1'
:= - привоение
= - сравнение
Внимательнее будь.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 23.01.2015, 12:48   #7
sdr1
Пользователь
 
Регистрация: 06.10.2014
Сообщений: 46
По умолчанию

Цитата:
Сообщение от evg_m Посмотреть сообщение
1. расставить скобки
2. заменить присвоение ":=" на сравнение "="
Код:
if ( edit1.Text:='1' )  or ( edit1.Text:='3' )
спасибо сразу не увидел вчсе получилось
sdr1 вне форума Ответить с цитированием
Старый 23.01.2015, 12:57   #8
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

Цитата:
спасибо сразу не увидел
Правда Вам про это двое написали, ну да ладно. Внимательно читайте посты других. Иногда в них есть что-то похожее на правду и это может не мало сэкономить Вашего личного времени .
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Суммировать несколько значений Leojse Microsoft Office Excel 2 08.02.2013 21:11
Проверка пустых значений в Edit. [Jank] Общие вопросы Delphi 4 22.10.2012 19:30
исключить из массива несколько значений bush007 PHP 3 05.09.2011 01:54
Перенос значений Edit в запрос U_r0ck БД в Delphi 10 24.04.2011 23:26