Обычное целое число, если нет то чтоб был ноль.
Мне надо наоборот, чтоб вылазило сообщение если не число введено
как сделать конструкцию if else с множественными действиями
Delphi , Синтаксис , Типы и Переменные
Статья Проверить, является ли число вещественным раздела Синтаксис Типы и Переменные может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
Эта проблема долго не давала мне покоя. Я пользовался try…except, но в режиме отладки это приносило одни проблемы.
В очередной раз я столкнулся с необходимостью проверить является ли строка числом… И написал наконец-то скрипт, не использующий метод исключения.
Moron
3 комментария
Добавить ваш
можно было немного покороче:
begin
Result := False;
for i:=1 to Length(S) do
if not (S[i] in [‘0’..’9′]) then exit;
Result := True;
end;