Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > string -> integer

Автор: thep 11.3.2009, 22:32

Привет парни. Такой вопрос. Допустим есть некая строка 'werty1234werty' из неё надо вытащить '1234' и перевести в integer. Как это можно сделать?

Автор: Kbl4AH 12.3.2009, 16:40

просматривай посимвольно строку, если символ - не цифра, то удаляй... оставшееся переводи в число...

Добавлено через 2 минуты и 12 секунд
слабо было на одну тему ниже глянутьhttp://forum.vingrad.ru/forum/topic-250847/anchor-entry/0.html#entry

Автор: Shtorm 13.3.2009, 02:14

Простой пример..........

Код


uses Crt;
Var
   st,stR: string;
   Leng: integer;
begin
     write('bla bla bla... - ');
     readln(st);
     Leng := 1;
     stR := '';
     while Leng<=Length(st) do
     begin
          if (st[Leng]>#47) and (st[Leng]<#58) then
             stR := stR+st[Leng];
          inc(Leng);
     end;
     write('number - ',stR);
     repeat until keypressed;
end.