Оставить только числа

[fezilk24]

Здравствуйте, программисты!

У меня есть переменная, тип string, в которой числа и символы, к примеру:

s := '=24&';

Нужно удалить все символы и оставить только числа, в данном случае это 24.

Подскажите, пожалуйста, как это осуществить.

[SERG1980]

Тема то забитая и простая

....
var s,s1:string;
     i:integer;
begin
s:='24&';
s1:='';
for i:=1 to Length(s) do
if s[i] in['0'..'9'] then s1:=s1+s[i];

[Serge_Bliznykov]

а если переменная = '24@#23.45'
результатом должно быть '242345' ?

тогда элементарно:

for i:=length(s) downto 1 do
  if not (s[i] in ['0'..'9']) then Delete(s,i,1);

[fezilk24]

спасибо, я затупил