// Выделить цифры из текстовой переменной

[LOGIC_BBS]

// Выделить цифры из текстовой переменной

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

function  ExtractNumber(const S:string):string;
var I:Integer;
begin
  Result:='';
  if Trim(S)='' then Exit;
  for I:=1 to Length(S) Do
	if S[I] in ['0'..'9'] then Result := Result + S[I];
end;

Выделить числа из стринговой переменной
S := ExtractNumber('-?/ 123CE4N5A6'); {a S contain '123456'}

Не могу сообразить как написать подобную для Nav.