|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка на пустой Edit
Помогите разобраться с проверкой .
Есть девять Edit , нужно проверить все на пустоту и если хоть в одном Edit есть данные , тогда выполнить процедуру. Благодарю |
#2
|
|||
|
|||
СПС разобрался
Код:
procedure TForm1.Button1Click(Sender: TObject); begin if (edit1.text='') and (edit2.text='') and (edit3.text='') and (edit4.text='') and (edit5.text='') and (edit6.text='') and (edit7.text='') and (edit8.text='') and (edit9.text='') and (edit10.text='') then begin if MessageDlg('Вы не ввели ни одного параметра, продолжить???', mtConfirmation, [mbOk, mbCancel], 0) = mrOK then qwe; end else begin qwe; end; end; procedure qwe; begin showmessage('hello'); end; |
#3
|
|||
|
|||
1. Еще желательно Trim делать.
2. Можно их, едиты, циклом искать Код:
var I : Integer; c : Integer; edit : TEdit; begin c := 0; For I := 1 To 9 Do begin edit := FindComponent('Edit'+IntToStr(I)) As TEdit; if edit <> Nil Then if trim(edit.Text) = '' Then inc(c); end; if c = 9 Then if MessageDlg('Вы не ввели ни одного параметра, продолжить???', mtConfirmation, [mbOk, mbCancel], 0) <> mrOK Then exit; qwe; end; |