Тема: Удалить все числа до первой буквы
Показать сообщение отдельно
  #2  
Старый 29.01.2012, 14:55
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Один из вариантов:
Код:
  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 в.д.
Ответить с цитированием