如何将如上字符串截取出数字部分

Question

StrToInt(Copy('abc0001', 3, 4));

Answer 1

可以用以下这个函数（刚刚给你写的 :)
function GetNumFromStr(AStr: String): String;
var
  I, J: Integer;
  RStr: String;
begin
  for I := 0 to Length(AStr) - 1 do
  begin
    for J := 48 to 57 do
    begin
      if Copy(AStr, I + 1, 1) = Chr(J) then
        RStr := RStr + Chr(J);
    end;
  end;
  Result := RStr;
end;
//调用方式 GetNumFromStr('abc0001') 可以返回 '0001'三少 :o)
[别人笑我太轻狂，我笑他人看不穿]

Answer 2

以上的那个函数还适合这种调用GetNumFromStr('a9ds2dd') 返回值 = '92'三少 :o)

Answer 3

More Easy：
  for i := 0 to Length(s) do //s是你的初始字符串
  begin
    if (s[i] in ['0'..'9']) then
      st := st + s[i];                //st是初始字符串中的数字
  end;

Answer 4

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;可以取得十六进制的数字！可以包含小数点，但你必须保证只有一个小数点！