|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.10.2008, 20:44 | #1 |
Форумчанин
Регистрация: 06.09.2008
Сообщений: 156
|
Проверка на пустые введенные данные
Меня интересует одна вещь:
В delphi можно проверить, если введена пустая строка: Код:
А в паскале как? Например вот кусок кода: Код:
Ужас, как я устал от тупизны...
|
23.10.2008, 20:55 | #2 |
Форумчанин
Регистрация: 22.10.2008
Сообщений: 103
|
//Функция проверяет строку на пустоту
Function STRING_IS_EMPTY (S :String) :Boolean; Var N :Integer; Begin Result:=TRUE; For N:=1 To Length(S) Do If S[N]<>' ' Then Begin Result:=FALSE; Break; End End;
Никто не знает больше чем не знаю я
|
23.10.2008, 21:12 | #3 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
Цитата:
Код:
|
|
23.10.2008, 23:19 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
или if Length(s)=0
или if ord(s[0])=0 |
24.10.2008, 06:07 | #5 |
Форумчанин
Регистрация: 06.09.2008
Сообщений: 156
|
Это хорошо, но описаные способы работают только с типом string;
А как быть с остальными типами? В Delphi например есть такие функции как IntToStr, FloatToStr, через которые можно перевести различные типы в строку, а в Паскале как?
Ужас, как я устал от тупизны...
|
24.10.2008, 07:13 | #6 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
|
|
24.10.2008, 08:09 | #7 | |
Форумчанин
Регистрация: 06.09.2008
Сообщений: 156
|
Цитата:
Спасибо теперь будем знать. А как кстати сделать проверку, если пользователь ввел не цифровой символ, а буквенный, ведь в этом случае будет ошибка.
Ужас, как я устал от тупизны...
Последний раз редактировалось rainbow; 24.10.2008 в 08:50. |
|
24.10.2008, 09:42 | #8 |
Форумчанин
Регистрация: 22.10.2008
Сообщений: 103
|
//Проверка строки на наличие букв
Function IS_NUMBER (S: String): Boolean; Var n:Integer; Begin Result:=TRUE; If Length(S)=0 Then Result:=FALSE; For n:=1 To Length(S) Do If Not ( S[N] In ['0'..'9']) Then Begin Result:=FALSE; Break; End End;
Никто не знает больше чем не знаю я
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Введенные данные в DBGridEh не сохраняются | prorock | БД в Delphi | 11 | 21.04.2011 14:35 |
Как увеличить длинну выпадающего списка: ДАННЫЕ-ПРОВЕРКА-СПИСОК | kay | Microsoft Office Excel | 3 | 10.02.2009 12:59 |
Данные-проверка-список (список на другом листе) | Inbox | Microsoft Office Excel | 7 | 26.12.2008 01:43 |
Пустые поля в запросах | PetroPorsh | Microsoft Office Access | 1 | 16.10.2008 16:56 |
Как удалить пустые строки в WORD? | KUNAR | Microsoft Office Word | 2 | 04.09.2007 20:56 |