Delphi извлечь числа из строки?
К примеру есть http://otvet.mail.ru/question/23628746/
надо 23628746
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;
-------------------------------
Вышеприведенный код фильтрует строку, оставляя только цифры.
Если цифровых последовательностей несколько или нужно цифры подряд, то нужно парсить.
Ключевое слово: парсер.
Если у Вас число представленно в виде строки и имеет тип строки, то перевести в число можно командой StrToInt.
Если же Вам из всей строки необходимо выцепить лишь числовое значение, то в голову приходит мысль о посимвольном сравнении каждого элемента строки с числовым рядом и ели совпадение найдено, то брать этот элемент как число.
StrToInt
Согласен.
