Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

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

 
Гость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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
11-1109622953
Boguslaw Brandys
2005-02-28 23:35
2005.10.30
KOL and Memcheck ?


4-1125138258
lelik2005
2005-08-27 14:24
2005.10.30
Помогите с созданием окна по рисунку


2-1127653225
Fifajan
2005-09-25 17:00
2005.10.30
Перетаскивание окна са определенную область


3-1126770344
Larisa
2005-09-15 11:45
2005.10.30
При переносе файла БД Interbase 6.0


11-1109765207
Boguslaw Brandys
2005-03-02 15:06
2005.10.30
Form.StatusCtl