Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Delphi извлечь числа из строки?

Псевдоним Мыслитель (7847), закрыт 15 лет назад
Дополнен 15 лет назад
К примеру есть http://otvet.mail.ru/question/23628746/
надо 23628746
Лучший ответ
Сергей Барановский Мудрец (14000) 15 лет назад
var
i : integer;
s, n : string;
begin
s := 'http://otvet.mail.ru/question/23628746/';
n := '';
for i := 1 to Length(s) do if s[ i ] in ['0'..'9'] then n := n + s[ i ];
end;
-------------------------------
Вышеприведенный код фильтрует строку, оставляя только цифры.
Если цифровых последовательностей несколько или нужно цифры подряд, то нужно парсить.
Остальные ответы
Infernal Rain Гений (66026) 15 лет назад
Если у Вас число представленно в виде строки и имеет тип строки, то перевести в число можно командой StrToInt.

Если же Вам из всей строки необходимо выцепить лишь числовое значение, то в голову приходит мысль о посимвольном сравнении каждого элемента строки с числовым рядом и ели совпадение найдено, то брать этот элемент как число.
Похожие вопросы