Delphi 从字符串中提取数字

function 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 Length(strIn) 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 需引用System.Character

如果是在Delphi7，还需要一个判断是否是数子的函数

function IsNumber(N: string): Boolean;

var

  I: Integer;

begin

  Result := True;

  if Trim(N) = '' then

    Exit;

  if (Length(Trim(N)) > 1) and (Trim(N)[1] = '0') then

    Exit;

  for I := 1 to Length(N) do

  begin

    if not (N[I] in ['0'..'9']) then

    begin

      Result := False;

      Break;

    end;

  end;

end;

巴特西

Delphi 从字符串中提取数字

最新文章

热门文章