Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
xAndeRx
3 / 3 / 0
Регистрация: 25.10.2012
Сообщений: 216
#1

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

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

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

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

Проверка панели на наличие в ней элементов - Delphi
Здравствуйте! Использую Delphi6. Во время выполнения я могу перетащить с панели, либо на панель элементы (Drag and Dock). Нужна...

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

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

Проверка всех похожих компонентов - Delphi
Привет Тема такая... На форме имеется около 20 компонентов TCheckBox с разными именами, в параметре Tag у каждого компонента прописаны...

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

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

3
FIL
Модератор
3387 / 2525 / 480
Регистрация: 19.09.2012
Сообщений: 7,854
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
817 / 717 / 160
Регистрация: 22.09.2012
Сообщений: 4,985
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 / 0
Регистрация: 25.10.2012
Сообщений: 216
01.12.2014, 02:48  [ТС] #4
Благодарю.
0
01.12.2014, 02:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2014, 02:48
Привет! Вот еще темы с ответами:

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

Найти количество элементов массива, больших среднего арифметического всех его элементов - Delphi
Задан массив A из n элементов. Найти количество элементов этого массива, больших среднего арифметического всех его элементов.

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

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


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

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

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