|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск цифры в строке
Ку. Нужно найти в строке, вводимую в edit все цифры. Спасибо за помощь.
|
#2
|
||||
|
||||
Так устроит?
Код:
Var s: String; s := ''; for i := 1 to Length(Edit1.Text) do if Edit1.Text[i] in ['0'-'9'] then s := s + Edit1.Text[i]; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
а можно вот такой вопрос: а если число боьлше 9 или ваще вида 0897
|
#4
|
|||
|
|||
а можно вот такой вопрос: а если число боьлше 9 или ваще вида -0897
|
#5
|
||||
|
||||
Ну поскольку мой пример работает за один проход одним символом, то цифра более 9 быть не может в принципе. А вот что касается минусов, то можно попробовать конечно еще добавить в ограничение и минус примерно так:
Код:
Var s: String; s := ''; for i := 1 to Length(Edit1.Text) do if Edit1.Text[i] in ['0'-'9','-'] then s := s + Edit1.Text[i]; ABC123-321Z то после обработки будет итоговая строка вида: 123-321 А это как-вы понимаете цифры, но не число и тогда надо отдельно обрабатывать такое исключение. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 13.02.2010 в 19:21. |
#6
|
|||
|
|||
ыыыы вместо - нужно .. поставить дошло
Последний раз редактировалось Shelby, 14.02.2010 в 08:10. |
#7
|
||||
|
||||
Упс. Как это я такой ляп сделал.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#8
|
|||
|
|||
Спасибо большое.
|
#9
|
||||
|
||||
ещё regexp очень сильно выручает, например для поиска email в тексте, или ссылки но это уже другая тема
|