Обрезать все кроме цифр, Дельфи

[TorchWood]

Здравствуйте, пожалуйста помогите мне, уже день мучаюсь, ничего не могу найти, в дельфи новичок,
как из такой строки:
C 4348907987
T
оставить только цифры?

кстати, ещё подскажите пожалуйста, как постоянно получать данные от сервера? чтобы функция ненадо было каждый раз вывывать,

Chat.Lines.Add(TCP.ReadLn);

принимаю вот так, и мне приходиться каждый раз нажимать на кнопку чтобы получить очередное сообщение от сервера, как сделать автообновление? или как там можно

народ, помогите же

[artemavd]

как постоянно получать данные от сервера?

Использовать компонент Timer

[m.a.x.i.m]

function only_numbers(str:string):string;//получает строку
                                         //возвращает только цифры из строки
var buf:string;
    i:integer;
begin
buf:='';
for i:=1 to length(str) do//перебираем все символы строки
  if str[i] in ['0'..'9'] then buf:=buf+str[i];//если очередной символ - цифра
                                               //то приписываем  его к итоговой строке
Result:=buf;
end;

используем

Edit2.Text:=only_numbers(Edit1.Text);

[TorchWood]

Спасибо большое!

[TorchWood]

а как мне проверить есть ли что либо в пакете Chat.Lines.Add(TCP.ReadLn); ?
Если не пусто, то вызвать таймер, и проверять каждый раз на существование пакета и только потом обновлять?

И ещё подскажите пожалуйста, как правильно сделать, короче

only_numbers(TCP.ReadLn) % 47385 + 90202; мне нужно решить такой уровнение, ответ записать куда то в переменную, для дальнейшего использования

делал так
k := Chat.Lines.Add(only_numbers(TCP.Rea dLn));
j := k % 47385 + 90202;

но там разные ошибки выбивают, типа там разные форматы данных или что то вроде этого

[celovec]

function only_numbers(str:string):string;//получает строку
                                         //возвращает только цифры из строки
var buf:string;
    i:integer;
begin
buf:='';
for i:=1 to length(str) do//перебираем все символы строки
  if str[i] in ['0'..'9'] then buf:=buf+str[i];//если очередной символ - цифра
                                               //то приписываем  его к итоговой строке
Result:=buf;
end;

Заметил когда в str нет вообще символов, код выдает ошибку, подскажите пожалуйста как избежать ошибки?

[celovec]

Сейчас пришло в голову, прошу прощенья, случайно добавил как новый ответ.

А разве нет чего-то вот такого в delphi

$get2 = preg_replace( '#[^0-9]#i', '', $get); ?

[vershik]

function only_numbers(str:string):string;
var buf:string;
    i:integer;
begin
 if str<>'' then
 begin
  buf:='';
  for i:=1 to length(str) do
    if str[i] in ['0'..'9'] then buf:=buf+str[i];
  Result:=buf;
 end else Result:='';
end;

Используем:

Edit2.Text:=only_numbers(Edit1.Text);

[Аватар]

vershik

Во-первых некропост, 4 года как-никак.
Во-вторых нет там ни какой ошибки, нормально пусто возвращает и без всяких проверок