Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

Простой вопрос. Но не знаю, как решить.   Найти похожие ветки 

 
Гость22   (2005-10-04 15:10) [0]

На форме есть 5 Edit"ов и Button. После нажатия на кнопку, проводится обработка данных из Edit"ов. Но перед обработкой надо проверить, не пустые ли поля Edit"ов и если пустые, то выдать соотв. сообщение. Ну так вот. Я не могу создать это условие. Как его сделать?


 
stone ©   (2005-10-04 15:14) [1]


>  Как его сделать?

Проверить перед обработкой. В цикле обойти эдиты, и проверить их на наличие значения


 
Гость22   (2005-10-04 15:16) [2]

<В цикле обойти эдиты, и проверить их на наличие значения>

Ну так я и не знаю, как это сделать. Подскажите!


 
stone ©   (2005-10-04 15:17) [3]

http://delphimaster.net/view/2-1128413699/


 
nk ©   (2005-10-04 15:20) [4]


if form1.Edit1.Text="" then  // "" - это не двойеая кавычка, а 2 апострофа... без пробела между ними!
    showmessage("соотв. сообщение")
else
 begin
  ...
 end;

чтоб не писать условие отдельно для каждого Edit-a смотри
http://delphimaster.net/view/2-1128413699/


 
oldman ©   (2005-10-04 18:58) [5]


> nk ©   (04.10.05 15:20) [4]


"     " это не "", а Edit все равно пустой :)))


 
Eleepod   (2005-10-04 21:16) [6]

Как вариант, можно использовать следующее:

if not Button1.Focused
  then if (Sender as TEdit).Text = ""
         then begin
               ShowMessage("Поле не заполнено!");
               ActiveControl := (Sender as TEdit);
              end;

Это все поместить в событие onExit какого-либо Edit"а. А затем всем оставшимся Edit"ам прицепить это событие.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.04 c
14-1128689265
oldman
2005-10-07 16:47
2005.10.30
Мельпомена и Терпсихора. (наверное, таки опрос)


8-1112943093
vidiv
2005-04-08 10:51
2005.10.30
Драйвер виртуальной звуковой карты


2-1128758683
maxXP
2005-10-08 12:04
2005.10.30
Вызов функции


14-1128668966
syte_ser78
2005-10-07 11:09
2005.10.30
ищу книгу


14-1129103667
Андрей Жук
2005-10-12 11:54
2005.10.30
Фленов о .NET





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский