Работа с компонентом Edit - Общие вопросы Delphi

andrey199520 · 12.04.2014, 20:04

Ребята Доброго времени суток. Не подскажете как организовать проверку на ввод информации в Edit. Т.е. мне нужно проверить если информация введена в 3 edit-а, то выполнять одни действия, а если информация введена в 5 edit-ов, то выполнять совсем другие действия. Спасибо за понимание.

Алексей_2012 · 12.04.2014, 20:10

сделай проверка если 3 эдита не пусты и остальные пусты, то одно действия, пока не укажешь конкретное ТЗ, вряд ли поймем всю суть

Stilet · 12.04.2014, 20:11

Код:

if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') then выполняем одно else
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') and 
(Edit5.Text<>'')then выполняем Другое else
Ниче не выполняем.

andrey199520 · 12.04.2014, 20:13

begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') then
ShowMessage('Hello World!!!')
else
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') and
(Edit5.Text<>'')then
ShowMessage('Easy FOR Arteezy');
end;

Все равно выводит Hello World! Даже если в 5 edit-ов ввожу информацию

andrey199520 · 12.04.2014, 20:23

Спасибо , разобрался =\)

12.04.2014, 20:04	#1
andrey199520 Регистрация: 01.05.2012 Сообщений: 5	Работа с компонентом Edit Ребята Доброго времени суток. Не подскажете как организовать проверку на ввод информации в Edit. Т.е. мне нужно проверить если информация введена в 3 edit-а, то выполнять одни действия, а если информация введена в 5 edit-ов, то выполнять совсем другие действия. Спасибо за понимание.

12.04.2014, 20:10	#2
Алексей_2012 t45t Участник клуба Регистрация: 20.03.2012 Сообщений: 1,849	сделай проверка если 3 эдита не пусты и остальные пусты, то одно действия, пока не укажешь конкретное ТЗ, вряд ли поймем всю суть from dark to light)

12.04.2014, 20:13	#4
andrey199520 Регистрация: 01.05.2012 Сообщений: 5	begin if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') then ShowMessage('Hello World!!!') else if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') and (Edit5.Text<>'')then ShowMessage('Easy FOR Arteezy'); end; Все равно выводит Hello World! Даже если в 5 edit-ов ввожу информацию Последний раз редактировалось andrey199520; 12.04.2014 в 20:18.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с компонентом Edit в Delphi	X_ALONE_X	Помощь студентам	3	16.11.2013 23:04
Работа с компонентом Edit	Fon_Blut	Помощь студентам	2	17.05.2011 21:19
Работа с компонентом	cargo29	Общие вопросы Delphi	1	03.05.2011 10:58
работа с компонентом	kuzmich	Компоненты Delphi	0	07.07.2009 21:58
Обмен данными между компонентом Edit и БД	Fantom	БД в Delphi	6	11.09.2008 11:52

12.04.2014, 20:23	#5
andrey199520 Регистрация: 01.05.2012 Сообщений: 5	Спасибо , разобрался =\)