Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
xAndeRx
3 / 3 / 1
Регистрация: 25.10.2012
Сообщений: 218
#1

Проверка всех элементов панели - Delphi

30.11.2014, 02:19. Просмотров 330. Ответов 3
Метки нет (Все метки)

У меня на панели есть 5 Edit'ов и 4 RadioButton'a нужно на событие OnClick компонента Button1
сделать такую проверку: Во всех 5 эдитах обязательно, что-либо написано и один из радиобатонов нажат.
http://www.cyberforum.ru/delphi-beginners/thread1749435.html

Не предлагайте через if then else, т.к. это много лишнего кода.
Лучше подскажите, можно ли оформить через цикл?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2014, 02:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверка всех элементов панели (Delphi):

Проверка всех Checkbox
На форме 5 чекбоксов. При нажатии на кнопку должна быть проверка, если ни на...

Информация от нажатия кнопок на одной панели должна выводится на другой панели
Добрый день и удачи Всем! Помогите пожалуйста. Я начинающий программист в...

Проверка всех похожих компонентов
Привет Тема такая... На форме имеется около 20 компонентов TCheckBox с...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно
Дан массив размера N и целые числа K и L (1<K≤L≤N). Найти сумму всех элементов...

Найти сумму всех элементов массива, кроме элементов с номером от K до L включительно.
Добрый день. В делфи=> Дан массив размера N и целые числа K и L (1 < K ≤ L ≤...

3
FIL
Модератор
3409 / 2547 / 725
Регистрация: 19.09.2012
Сообщений: 7,908
30.11.2014, 11:36 #2
Едиты можно проверить так:
Delphi
1
2
3
4
5
6
7
8
9
10
var
  i: Integer;
begin
  for i := 1 to 5 do
    if TEdit(FindComponent('Edit' + IntToStr(i))).Text = '' then
    begin
      ShowMessage('ГЌГҐ ГўГ±ГҐ Åäèòû Г§Г*ïîëГ*ГҐГ*Г»!');
      Exit;
    end;
end;
А RadioButton можно и в дизайнере сделать выбранным.
1
NIKOLAYY
819 / 717 / 339
Регистрация: 22.09.2012
Сообщений: 4,994
30.11.2014, 15:40 #3
Цитата Сообщение от xAndeRx Посмотреть сообщение
можно ли оформить через цикл?
Вот еще варианты.
Проверка все ли заполнены:
Delphi
1
2
3
4
5
6
7
8
var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
     if  ((Components[i] as TEdit).Text) = '' then
     ShowMessage('Не все Едиты заполнены!');
end;
Показать какой эдит и чем заполнен (выписать в мемо-поле)
Delphi
1
2
3
4
5
6
7
8
var
  i: integer;
begin
  //найти на форме все эдиты и выписать свойства имя = текст
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      Memo1.Lines.Add((Components[i] as TEdit).Name + ' = ' + (Components[i] as TEdit).Text);
end;
1
xAndeRx
3 / 3 / 1
Регистрация: 25.10.2012
Сообщений: 218
01.12.2014, 02:48  [ТС] #4
Благодарю.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2014, 02:48
Привет! Вот еще темы с решениями:

Найти количество элементов, меньших среднего арифметического всех элементов матрицы
Дана матрица А размера NxM. Найти количество элементов, меньших среднего...

Найти количество элементов массива, меньших заданного числа В, и произведение всех элементов
19. В массиве X(N) найти количество элементов массива, меньших заданного числа...

Найти произведение всех элементов матрицы, кроме элементов главной и побочной диагоналей
Сформулировать двумерный массив чисел. Найти произведение всех элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru