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

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

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.02.2016, 11:10   #1
Юрий9
Пользователь
 
Регистрация: 20.02.2016
Сообщений: 13
По умолчанию если Edit1 ='Рис', Edit2 ='10', Edit3 ='6', то автоматически заполняется Edit4 ='100'. Какой оператор лучше использовать?

Здравствуйте, подскажите какого оператора лучше использовать. Суть вопроса; если Edit1 ='Рис', Edit2 ='10', Edit3 ='6', то автоматически заполняется Edit4 ='100'

Последний раз редактировалось Вадим Мошев; 20.02.2016 в 19:01.
Юрий9 вне форума Ответить с цитированием
Старый 20.02.2016, 11:20   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Нужно поконкретней расписать алгоритм.

А если поля по другому заполнены (в Edit1, например, "Лис"), то что делать с Edit4? edit4 стирать содержимое?
Если в edit4 пользователь руками написал 200, что должно стать?
А если в Edit1 написали РИС - то что должно быть?


А вообще, если такой набор данных только один, то всё просто:
вешайте на Edit1, Edit2, Edit3 один и тот же обработчик (либо на событие потери фокуса - выход, либо вообще на событие изменения содержимого onChange), в этом обработчике проверяйте (можно банально через IF) и делайте с Edit4 всё, что нужно.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 20.02.2016, 11:20   #3
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Код:
If (Edit1.Text ='Рис') and (Edit2.Text ='10') and (Edit3.Text ='6') then Edit4.Text:='100'
программа — запись алгоритма на языке понятном транслятору
evg_m на форуме Ответить с цитированием
Старый 20.02.2016, 11:34   #4
Юрий9
Пользователь
 
Регистрация: 20.02.2016
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Нужно поконкретней расписать алгоритм.

А если поля по другому заполнены (в Edit1, например, "Лис"), то что делать с Edit4? edit4 стирать содержимое?
Если в edit4 пользователь руками написал 200, что должно стать?
А если в Edit1 написали РИС - то что должно быть?


А вообще, если такой набор данных только один, то всё просто:
вешайте на Edit1, Edit2, Edit3 один и тот же обработчик (либо на событие потери фокуса - выход, либо вообще на событие изменения содержимого onChange), в этом обработчике проверяйте (можно банально через IF) и делайте с Edit4 всё, что нужно.
не продумал такой вариант, Спасибо.
Юрий9 вне форума Ответить с цитированием
Старый 26.02.2016, 17:55   #5
Юрий9
Пользователь
 
Регистрация: 20.02.2016
Сообщений: 13
По умолчанию

if (edt26.Text:='Рис') and (edt27.Text:='10') and (edt34.Text:='6') then cbb13.Text:='100';
Что-то не могу понять, почему он не хочет, ошибка - Оператор не применимо к этому типу операнда???
cbb13.Text:='100' в случае несоответствия, можно в ручную изменять.
edt26.Text:='Рис' может меняться.
Юрий9 вне форума Ответить с цитированием
Старый 26.02.2016, 17:56   #6
Юрий9
Пользователь
 
Регистрация: 20.02.2016
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Нужно поконкретней расписать алгоритм.

А если поля по другому заполнены (в Edit1, например, "Лис"), то что делать с Edit4? edit4 стирать содержимое?
Если в edit4 пользователь руками написал 200, что должно стать?
А если в Edit1 написали РИС - то что должно быть?


А вообще, если такой набор данных только один, то всё просто:
вешайте на Edit1, Edit2, Edit3 один и тот же обработчик (либо на событие потери фокуса - выход, либо вообще на событие изменения содержимого onChange), в этом обработчике проверяйте (можно банально через IF) и делайте с Edit4 всё, что нужно.

if (edt26.Text:='Рис') and (edt27.Text:='10') and (edt34.Text:='6') then cbb13.Text:='100';
Что-то не могу понять, почему он не хочет, ошибка - Оператор не применимо к этому типу операнда???
cbb13.Text:='100' в случае несоответствия, можно в ручную изменять.
edt26.Text:='Рис' может меняться.
Юрий9 вне форума Ответить с цитированием
Старый 26.02.2016, 18:00   #7
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

А зачем двоеточий наставил в сравнениях?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 26.02.2016, 18:04   #8
Юрий9
Пользователь
 
Регистрация: 20.02.2016
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
А зачем двоеточий наставил в сравнениях?
Огромное спасибо!!!
Юрий9 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как сделать что бы в Edit был прозрачный текст который при введение в Edit все исчез alman12 Общие вопросы Delphi 22 09.06.2014 22:21
Пустой Edit. Парсер формулы из Edit Silverstone Общие вопросы Delphi 3 16.12.2012 03:07
Копирование строки из Edit в другой Edit. Ibanez Wizard Win Api 3 29.03.2011 02:46
Edit assasin Общие вопросы C/C++ 1 24.08.2009 23:09