Тема: Использование функций
Показать сообщение отдельно
  #4  
Старый 28.11.2010, 18:44
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
  
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию
Наверное так должно быть:
Код:
if (Pos(',',str)=0) and (str[Length(str)]>='0') and (str[Length(str)]<='9')
then ProvInputDrobn :=True
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием