|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.11.2022, 20:58 | #1 |
Пользователь
Регистрация: 22.01.2012
Сообщений: 39
|
Определить что в названии/тексте - цифры
Помогите проверкой...
на проверку что в "тексте" только цифры. Как пример: 001214954544 - все цифры. fМЛЬdf95454т - не все цифры))
no sleep.
Последний раз редактировалось unreal2x; 27.11.2022 в 21:21. |
27.11.2022, 22:01 | #2 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
проходите в цикле по всем символам и проверяете на попадание в диапазон от '0' до '9'. При выходе из диапазона хотя бы один раз прерываете цикл и возвращаете false, при нормальном окончании цикла возвращаете true.
|
29.11.2022, 15:40 | #3 |
никакой
Пользователь
Регистрация: 21.05.2018
Сообщений: 36
|
procedure TForm1.Button1Click(Sender: TObject);
var i: integer; begin try Label1.Caption:='Все цифры'; i:=StrToInt(Edit1.Text); except Label1.Caption:='Есть буквы'; end; end; |
29.11.2022, 15:42 | #4 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
При минус забыл. Это если в тексте не более 9 цифр. Иначе тоже будет ошибка - переполнение типа integer
|
29.11.2022, 16:21 | #5 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Цикл всё таки надежнее )))
|
29.11.2022, 23:36 | #6 |
Пользователь
Регистрация: 22.01.2012
Сообщений: 39
|
Использовал TryStrToFloat... true/false то, что надо))
no sleep.
|
02.12.2022, 16:29 | #7 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
|
02.12.2022, 18:23 | #8 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
|
03.12.2022, 16:39 | #9 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,950
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В тексте определить количество чисел, у которых три одинаковых цифры в числе | Zaresh | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 13 | 29.02.2016 17:05 |
Определить последнии две цифры числа | otchet200 | Помощь студентам | 4 | 14.02.2015 01:18 |
Определить: количество цифр в тексте | irek01 | Visual C++ | 3 | 26.05.2012 18:17 |