只取字符窜里的数字 要怎么写？

Question

现在有一些字符串
abc123456
edf543211
gda123425
gafdg2333
如何取得字符串的里的数字啊？过滤掉字母

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  sstr,dstr:string;
  i:integer;
begin
  sstr := 'abc123456';
  dstr := '';
  for i:=1 to Length(sstr) do
  begin
    if sstr[i] In ['0'..'9']   then
     dstr := dstr+ sstr[i];
  end;
  showmessage(dstr);
end;

Answer 2

function GetNumFromStr(const str: String;const hex:boolean=false): String;
var
 i:integer;
 charset:Set of char;
begin
if hex then
 charset:=['0'..'9','a'..'f','A'..'F','.']
else
 charset:=['0'..'9','.'];
for i := 1 to Length(str) do
  begin
    if (str[i] in charset) then
      result:= result + uppercase(str[i]);
  end;
end;