Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вопрос про TEdit, Подскажите пожалуйста! 
V
    Опции темы
JohnnY
Дата 10.3.2007, 00:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет
Такой вопрос!
У меня создано, например 5 (пять) TEdit...
Мне нужно сделать проверку...
При нажатии на TButton проверялось, есть ли какие-нибудь символы в каждом из TEdit, если в каком-то TEdit нет символов, тогда должно высвечиваться сообщение, что, например один или более TEdit незаполнены...

Было бы ещё лучше если б в сообщении указавался тот TEdit, который незаполнен...

Спасибо...
PM MAIL WWW   Вверх
_beginner_
Дата 10.3.2007, 00:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 3.2.2007
Где: Россия

Репутация: нет
Всего: нет
Попробуй так:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer ;
begin
if edit1.Text='' then  showmessage('íåçàïîëíåí edit1')
else   i:=0 ;
if edit2.Text='' then  showmessage('íåçàïîëíåí edit2')
else  i:=0 ;
if edit3.Text='' then  showmessage('íåçàïîëíåí edit3')
else  i:=0 ;
if edit4.Text='' then  showmessage('íåçàïîëíåí edit4')
else  i:=0 ;
if edit5.Text='' then   showmessage('íåçàïîëíåí edit5')
else  i:=0 ;
end;
end.
PM   Вверх
VICTAR
Дата 10.3.2007, 01:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Пользуйся поиском
проверка наличия данных в TEdit, TComboBox ... 
PM MAIL   Вверх
gambit
Дата 10.3.2007, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***
Награды: 1



Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40
Код

var
i:integer ;
begin
if edit1.Text='' then  showmessage('íåçàïîëíåí edit1')
else   i:=0 ;
if edit2.Text='' then  showmessage('íåçàïîëíåí edit2')
else  i:=0 ;
if edit3.Text='' then  showmessage('íåçàïîëíåí edit3')
else  i:=0 ;
if edit4.Text='' then  showmessage('íåçàïîëíåí edit4')
else  i:=0 ;
if edit5.Text='' then   showmessage('íåçàïîëíåí edit5')
else  i:=0 ;
end;


 smile  smile  smile 
PM MAIL ICQ Skype   Вверх
MetalFan
Дата 10.3.2007, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Цитата(JohnnY @  10.3.2007,  00:15 Найти цитируемый пост)
При нажатии на TButton проверялось, есть ли какие-нибудь символы в каждом из TEdit, если в каком-то TEdit нет символов, тогда должно высвечиваться сообщение, что, например один или более TEdit незаполнены...

Было бы ещё лучше если б в сообщении указавался тот TEdit, который незаполнен...

а еще лучше(имхо) для юзерфрендли морды сделать так:
при нажатии на кнопку определять, в какой первый едит не введены данные, переводить фокус ввода на него и выдавать хинт (можно балун) с сообщением, что неплохо бы ввести данные)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Sunvas
Дата 10.3.2007, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
_beginner_, gambit, а если эдитов будет 100, тоже будете делать 100 проверок?  smile 

ИМХО надо так:
Код

var i:word;
    s:string;
begin
s:='';
for i:=0 to componentcount-1 do
  if (components[i] is tedit) then
    if length(trim((components[i] as tedit).Text))=0 then s:=s+(components[i] as tedit).Name+', ';
if s<>'' then showmessage('Ýäèòû '+s+'íå çàïîëíåíû!');



Добавлено @ 13:14 
Цитата(MetalFan @  10.3.2007,  13:10 Найти цитируемый пост)
при нажатии на кнопку определять, в какой первый едит не введены данные, переводить фокус ввода на него и выдавать хинт (можно балун) с сообщением, что неплохо бы ввести данные)

Хороший вариант, только реализация будет чуть труднее.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
JohnnY
Дата 10.3.2007, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет
Большое всем спасибо! Очень помогло!
PM MAIL WWW   Вверх
gambit
Дата 11.3.2007, 18:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***
Награды: 1



Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40
Цитата(Sunvas @  10.3.2007,  13:13 Найти цитируемый пост)
beginner_, gambit, а если эдитов будет 100, тоже будете делать 100 проверок? 

Sunvas, Вообщето я посмеялся над кодом.
PM MAIL ICQ Skype   Вверх
Yanis
Дата 12.3.2007, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
_beginner_, Sunvas
Это вы на какойном языке переписываетесь? smile
Цитата(Sunvas @  10.3.2007,  14:13 Найти цитируемый пост)
showmessage('Ýäèòû '+s+'íå çàïîëíåíû!');



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Sunvas
Дата 12.3.2007, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(gambit @  11.3.2007,  18:50 Найти цитируемый пост)
Sunvas, Вообщето я посмеялся над кодом.

Сори, хотя бы в цитату его уже взял...

Цитата(Yanis @  12.3.2007,  11:11 Найти цитируемый пост)
Это вы на какойном языке переписываетесь?

Да. Чтобы никто не догадался. smile 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Alexeis
Дата 12.3.2007, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Прекращайте офтопить. smile 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0771 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.