Свежие темы форума
○ Ключи к Norton/Symantec Антивирус №3 (Продолжение)	в 17:50
○ Ключи для Abbyy Finereader 12	в 13:23
○ Генератор прямых ссылок	в 07:18
○ [Vn5socks.net] Service Seller Socks Good	в 06:45
○ Генератор паролей по маске	в 00:02
○ Как вы попали на Free-Pass.Ru?	в 07:27
○ Как возник ваш ник? [истории возникновения ваших ников]	в 07:26
○ Тема для киноманов! (Обсуждение фильмов, сериалов и др.)	в 07:26
○ Продажа аккаунтов - соц сети, почтовые, фрихостинг	в 18:59
○ Раздача аккаунтов,ключей,cookies,JavaScript на ФО	в 10:38

Популярные темы форума
○ Ключи к Norton/Symantec Антивирус	9999
○ Ключи к Norton/Symantec Антивирус №2 (Продолжение)	9734
○ [Dichvusocks.us] Service Seller Socks Good	7010
○ [Vn5socks.net] Service Seller Socks Good	6838
○ Ключи к Norton/Symantec Антивирус №3 (Продолжение)	2439
○ Ключи для Windows 8.1	1901
○ CS:GO сайты с халявой (UPD 52 сайтa)	1833
○ Раздача игровых ключей на gleam.io Free(,бесплатно )	1205
○ Раздача аккаунтов,ключей,cookies,JavaScript на ФО	1186
○ Промо-акции: различные полезные программы	1050

Интересные статьи и лайфхаки

Как получить стикеры в ВК бесплатно?

Я уверен в том, что практически каждый активный пользователь ВКонтакте задумывался о том, как получить стикеры

[Почтовая халява] Бесплатные обложка для паспорта ...

Aviasales раздаёт на халяву вещи, которые можно взять бесплатно на Ebay! Обложка для паспорта или очки от солн

Как в Steam поменять валюту?

В данной статье Вы узнаете как поменять валюту в Steam. Рассматривается несколько способов! От простого способ

Сейчас вы просматриваете тему

Проверить чтобы строка содержала только цифры

Страница 1 из 1
1

Проверить чтобы строка содержала только цифры (By Ananas)

Ананас

Автор темы

Дата: Понедельник, 03.03.2014, 23:09 | Сообщение # 1

8 уровень

Сообщений: 684

Репутация: 125

Подарки: 10

Замечания: 0%

Постоянные

Смысл функции простой. Мы переводим строку в число с помощью функции StrToInt. И если при конвертировании, все выполнилось успешно (без ошибок), то функция возвращается True, иначе False.

function isNumber(s:string):boolean;begin
Result:=true;trystrtoint(s);
except
Result:=false;end;
end;

Использовать функцию просто:
if isNumber('12345') then ShowMessage('OK :D') else ShowMessage('Not OK :(!');

Поделиться этой темой: