|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Удалить все числа до первой буквы
Как реализовать? помогите плз)
|
#2
|
||||
|
||||
Один из вариантов:
Код:
while True do begin if St[1] in ['0'..'9'] then St := Copy(St, 2, Length(St)) else Break; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 29.01.2012 в 15:08. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
sariman (30.01.2012)
|
#3
|
||||
|
||||
Цитата:
Код:
i := 0; while (St[i] in ['0'..'9']) and (i < Length(St)) do Inc(i); if St[i] in ['0'..'9'] then St := Copy(St, i, Length(St) - i + 1) else St := ''; Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. Последний раз редактировалось dr. F.I.N., 30.08.2013 в 19:10. |
Этот пользователь сказал Спасибо dr. F.I.N. за это полезное сообщение: | ||
sariman (30.01.2012)
|
#4
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
sariman (30.01.2012)
|
#5
|
||||
|
||||
Юзайте RegExp.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
sariman (30.01.2012)
|
#6
|
||||
|
||||
Цитата:
1.Если чтрока состоит только из цифр? 2.Зачем делать -дцать раз Copy? Цитата:
Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
Этот пользователь сказал Спасибо dr. F.I.N. за это полезное сообщение: | ||
sariman (30.01.2012)
|
#7
|
||||
|
||||
Зато коротко и лаконiчно.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
sariman (30.01.2012)
|
#8
|
||||
|
||||
Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
sariman (30.01.2012)
|
#9
|
||||
|
||||
Код:
var s: String; i: Integer; begin s:='123qwe'; for i:=1 to Length(s) do if not (s[i] in ['0'..'9']) then Break; s:=PChar(@s[i]); ShowMessage('"'+s+'"'+#13#10+IntToStr(Length(s))); end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
sariman (30.01.2012)
|
#10
|
||||
|
||||
Спасибо всем!!!))))))
|