Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz, Admin 
Форум » Все о Delphi » Программа и интерфейс » Как программно проверить?
Как программно проверить?
GaNDyPaCДата: Воскресенье, 21.06.2009, 04:38 | Сообщение # 1
Ранг 4
Группа: Проверенные
Сообщений: 86
Награды: 0
Репутация: 1
Статус: Offline
Здраствуйте,я хотел спросить у вас.Как программно проверить заполнены ли необходимые tedi'bl и memo, заранее спасибо!?
DELPHI USER
 
AdminДата: Воскресенье, 21.06.2009, 11:03 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Смотря какие данные там должны быть. Но самым простым способом будет такой
Code
if Edit1.Text<>'' then ...

Тут написано: Если Edit1.Text не пустой то делаем что-то. А Edit1.Text это как раз тот текст который и записан в поле.

Не оказываю помощь через личные сообщения и ICQ
 
GaNDyPaCДата: Воскресенье, 28.06.2009, 04:57 | Сообщение # 3
Ранг 4
Группа: Проверенные
Сообщений: 86
Награды: 0
Репутация: 1
Статус: Offline
А если с memo?

Добавлено (21.06.2009, 17:54)
---------------------------------------------
Попробовал с memo тоже самое smile

Добавлено (28.06.2009, 04:57)
---------------------------------------------
Пробовал,но что заполненный Tedit,что не заполненный.Толку 0

DELPHI USER
 
AdminДата: Воскресенье, 28.06.2009, 12:19 | Сообщение # 4
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Слушай, я не экстрасенс, я не могу знать как ты написал, выкладывай код тогда скажу в чем ошибка, у меня все работает:
Code
procedure TForm1.Button1Click(Sender: TObject);
begin
   if Edit1.Text = '' then Showmessage('Пустой') else Showmessage('Там что-то есть');
end;

Сначала идет простое сравнение с '' тоесть с ничем. Это значит что выполнится Showmessage('Пустой') код если в Edit.Text нету ничего, иначе выполнится то что после else. Все элементарно.
Не оказываю помощь через личные сообщения и ICQ
 
GaNDyPaCДата: Вторник, 30.06.2009, 03:40 | Сообщение # 5
Ранг 4
Группа: Проверенные
Сообщений: 86
Награды: 0
Репутация: 1
Статус: Offline
Сработало спс smile
DELPHI USER
 
Форум » Все о Delphi » Программа и интерфейс » Как программно проверить?
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2018
Хостинг от uCoz