delphi字符串中取数字

本文整理自网络，侵删。

 
function TForm1.getNumberFromStr(strIn: string; sFlag: string): string;
var
  i: Integer;
  tempStr: string;
begin
  tempStr := '';

  if Length(strIn) = 0 then
  begin
    Result := '';
    exit;
  end;

  for i := 1 to strIn.Length do
  begin
    if strIn[i] = sFlag then   //截取到sFlag位置结束
      Break;

    if IsNumber(strIn[i]) then    //isNumber--System.Character
    begin
      tempStr := tempStr + strIn[i];
    end;
  end;

  Result := tempStr;
end;
 

相关阅读 >>

Delphi ansi字符串转unicode编码

Delphi ttabcontrol

Delphi unidbtreegrid判断点击折叠事件

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi多线程学习：多线程数据库查询（ado）

Delphi 提高进程自身权限

Delphi 中打开浏览器跳转网址链接网页的几种方法

Delphi edit只能输入数字或小数点

Delphi格式化输出函数

Delphi中指针和地址切换的方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi字符串中取数字