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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как проверить введены ли данные в edit? Если все 10 Edit пусты то message '****' 
:(
    Опции темы
DenRip
Дата 16.6.2007, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
На форме 10 Editov, если они все пустые то выходит сообщение 'Вы не ввели ни одного параметра, продолжить???'

Если хоть один заполнен то выполнение кода......???
PM MAIL   Вверх
gambit
Дата 16.6.2007, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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



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

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

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='') and (edit2.text='') and (edit3.text='') and (edit4.text='') and (edit5.text='') and (edit6.text='') and (edit7.text='') and (edit8.text='') and (edit9.text='') and (edit10.text='') then
begin
if MessageDlg('Вы не ввели ни одного параметра, продолжить???', mtConfirmation, [mbOk, mbCancel], 0) = mrOK then qwe;
end
else
begin
qwe;
end;
end;

procedure qwe;
begin
showmessage('hello');
end;


Это сообщение отредактировал(а) gambit - 16.6.2007, 11:43
PM MAIL ICQ Skype   Вверх
DenRip
Дата 16.6.2007, 13:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='') and (edit2.text='') and (edit3.text='') and (edit4.text='') and (edit5.text='') and (edit6.text='') and (edit7.text='') and (edit8.text='') and (edit9.text='') and (edit10.text='') then
begin
if MessageDlg('Вы не ввели ни одного параметра, продолжить???', mtConfirmation, [mbOk, mbCancel], 0) = mrOK then form2.show;
end
else
begin
form3.show;
end;
end.


Не ругается и ни чего не происходит!! что тут не так??
PM MAIL   Вверх
Guedda
Дата 16.6.2007, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 1
Всего: 78
gambit, у тебя код не заработает, так как процедура qwe стоит ниже по коду, чем процедура её вызвавшая.



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
mr.Anderson
Дата 16.6.2007, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 3
Всего: 128
Используйте IsEmpty().


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Rodman
Дата 16.6.2007, 15:43 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
  for i:=1 to 10 do
    if(Length(TEdit(FindComponent('Edit' + IntToStr(i))).Text)=0)then
    begin
      ShowMessage('Enter some in '+IntToStr(i)+' Edit');
      Exit;
    end;
  Form3.show;
end;

Цитата(DenRip @  16.6.2007,  12:06 Найти цитируемый пост)
Не ругается и ни чего не происходит!! что тут не так?? 

а пошагово проверял???


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
lukas
Дата 16.6.2007, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 15
DenRip, 

так дык... условие не правильно поставлено...  smile , логику нужно развивать...

не and а or

У тебя условие: если все едиты пустые, то тогда выводить сообщение...

а нужно, если хотя бы один пустой, выводить сообщение...  smile 

Но я бы посоветовал код Rodman, (а если едитов будет 20, 30, 40, ты будешь все вручную писать...?)

Это сообщение отредактировал(а) lukas - 16.6.2007, 18:44


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
DenRip
Дата 17.6.2007, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
н
Цитата

е and а or

Как 
gambit,  подсказал

Цитата

я бы посоветовал код Rodman

Да это грамотно будет, спасибо!! бум использовать!!!!
А теперь я позволю себе задать вам нескроный вопрос!

мне надо запретить ввод текста в едиты, только цифры, ??? 
Во как!??
PM MAIL   Вверх
Rodman
Дата 17.6.2007, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122
Цитата(DenRip @  17.6.2007,  14:37 Найти цитируемый пост)
мне надо запретить ввод текста в едиты, только цифры, ??? 

Код

procedure TForm1.FormCreate(Sender: TObject);
var i, j:Integer;
    st:String;
begin
  for j:=1 to 10 do
    for i:=Length(TEdit(FindComponent('Edit' + IntToStr(j))).Text) downto 1 do
      if not(TEdit(FindComponent('Edit' + IntToStr(j))).Text[i] in ['0'..'9'])then
      begin
        st:=TEdit(FindComponent('Edit' + IntToStr(j))).Text;
        Delete(st, i, 1);
        TEdit(FindComponent('Edit' + IntToStr(j))).Text:=st;
      end;
end;



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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