Удаляем с переменной все кроме цифр.

[celovec]

Подскажите пожалуйста как реализовать подобное?
В php это делается всего одной строчкой $get2 = preg_replace( '#[^0-9]#i', '', $get);

А в delphi насколько я понял такой оператор не поддерживается.


Пробовал реализовать вот такой пример:

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;

Но он к сожалению отказывается работать когда в переменной вообще нет цифр. Подскажите как модифицировать его, тоесть если в переменной нет цифр, необходимо выводить пустую переменную.

Или может есть какой-то более простой вариант?

[_-Re@l-_]

В смысле что вам нужно? Получить всё цифры из строки, и собрать их в одно число?

[Stilet]

Но он к сожалению отказывается работать когда в переменной вообще нет цифр.

Ну правильно - если в переменке нет цифр то он вернет тебе пустое место, там ведь цифр нет.

[fate]

если в переменной нет цифр, необходимо выводить пустую переменную

так у тебя так и есть, если в переданой переменной str нет цифр функция вернет ''
т.е. пустую переменную.

P.S.
Кстати в delphi можно использовать регулярные выражения, модуль RegExpr

[celovec]

Сообщение от _-Re@l-_

В смысле что вам нужно? Получить всё цифры из строки, и собрать их в одно число?

Нет. Необходимо просто получить все цифры из строки.

Stilet, может я что-то не так понимаю.
Может я не там ищу. У меня вылетает вот такая ошибка если в переменной нет цифр.


Тоесть ситуация такая если в поле нет цифр идет условие:
if (only_numbers(Edit5.Text) = '') then button4.Caption:='10';
следующее условие уже работает с 10, но почему-то это верхнее условие не срабатывает. Почему?

[Скандербег]

Такую ошибку поставляет функция StrToInt, если строка пустая, или содержит не цифры. Применять TryStrToInt.

[Аватар]

Функция написана правильно, а вот результатом её пользуетесь не правильно. Покажите конкретно фрагмент кода, где ошибка вываливается

[celovec]

Аватар, он не показывает какая именно строчка ему не нравится.
Скандербег, что здесь необходимо поменять?

 button4.Caption:=only_numbers(Edit5.Text);
 if (strtoint(button4.Caption) > 30) or (strtoint(button4.Caption) < 1) or (only_numbers(Edit5.Text) = '') then button4.Caption:='10';




**** далее уже другая процедура связанная с button4.Caption***

   max:=strtoint(button4.Caption);
  try
    stringBuff.CustomSort(CompareWithValues);
    if (stringBuff.Count < max) then max:=stringBuff.Count;

[Аватар]

Вторая команда вашего кода сразу даст ошибку, если button4.Caption=''. strtoint от '' - дает ошибку

можно заменить на
if (only_numbers(Edit5.Text) = '') or (strtoint(button4.Caption) > 30) or (strtoint(button4.Caption) < 1) then button4.Caption:='10';

[celovec]

Насколько я понимаю вы о этом говорите:
only_numbers(Edit5.Text) = ''
Это тоже самое что button4.Caption='', а причем тут strtoint?