delphi字符串中取数字
发布时间:2020-12-15 09:24:13 所属栏目:大数据 来源:网络整理
导读: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 strI
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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |