[artem779]

я не очень знаю, как пользоваться регулярный выражениями. подскажите, мне пожалуйста, каким кодом на Delphi можно реализовать следющую операцию
у меня есть переменная

Код:

1 2 3 4 5 6 7 8

* * * var   curStr : string;   cutedStr : string;   begin   curStr := 'acds dfs _ df3425 dd'  * * *

как в переменную cutedStr записать все цифры, содержащиеся в curStr ?

[Aristarh Dark]

Код:

1 2 3 4 5 6 7 8 9 10

var   curStr : string;   cutedStr : string;   i:integer; begin   curStr := 'acds dfs _ df3425 dd';   cutedStr:='';   for i:=1 to Length(curStr) do     if curStr[i] in ['0'..'9'] then       cutedStr:=cutedStr+curStr[i];