![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#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; |