有一个字符串有数字，字母或其他字符，只返回数字部分，，怎么实现 这个算法？？？

Question

谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  strS,strR: String;
  i,len:integer;
  p :pchar;
begin
  strS := edit1.Text;
  len := length(strS);
  for i := 0 to len  do
  begin
  p := pchar(copy(strS,i,1));
  if (p > #48) and (p < #57) then
  begin
    strR := strR+p;
  end;
  end;
  Edit2.Text := strR;
end;给分，给分！

Answer 2

skphoebe(小鲨鱼)的办法好厉害啊！

Answer 3

接分procedure TForm1.Button1Click(Sender: TObject);
var
    i : Integer;
    s : string;
    r : string;
begin
    s := Edit1.Text;
    for i:=1 to Length(Edit1.Text) do
    begin
        if (s[i]>='0') and (s[i]<='9') then
        r := r+s[i];
    end;    ShowMessage(r);
end;

Answer 4

if s[i] in ['0'..'9'] then

Answer 5

用这个函数：Function GetNumberFromString(s : String) : String;
Begin
 While Length(s) > 0 Do
  Begin
   If s[Length(s)] IN ['0'..'9'] Then Result := s[Length(s)] + Result;
   SetLength(s, Length(s) - 1);
  End;
End;