如何强制 StrToInt、StrToIntDef 忽略十六进制值？

Question

我有一个可以保存字符串或整数的变量。因此，我使用 If StrToIntDef(Value) > 0 来决定是处理字符串还是整数。但是当字符串以 'x' 或 'X' 开头时，这会失败。我假设是因为它认为它是一个十六进制数并将其转换为整数：

procedure TForm1.Button1Click(Sender: TObject);
var
  Value:integer;
  Str:string;
begin

  Str:='string';
  Value:=StrToIntDef(Str,0); // Value = 0  OK

  Str:='xa';
  Value:=StrToIntDef(Str,0); // Value = 10 - NOT OK! Shuold be 0!

  Str:='XDBA';
  Value:=StrToIntDef(Str,0); // Value = 3514 - NOT OK! Shuold be 0!

end;

如何使转换函数忽略十六进制值？

Answer 1

为了安全起见，我认为您应该验证每个字符都是一个数字。

function StrToIntDefDecimal(const S: string; Default: Integer): Integer;
var
  C: Char;
begin
  for C in S do
    if ((C < '0') or (C > '9')) and (C <> '-') then
    begin
      Result := Default;
      exit;
    end;
  Result := StrToDef(S, Default);
end;

但是，如果您只是想检测字符串是否为数字，那么您可以这样做：

function IsDecimalInteger(const S: string): Boolean;
var
  C: Char;
begin
  for C in S do
    if ((C < '0') or (C > '9')) and (C <> '-') then
    begin
      Result := False;
      exit;
    end;
  Result := True;
end;

即使这样也不完美，因为它允许像 '1-2' 这样的值。但我相信您可以修改代码以仅接受 '-' 作为第一个字符。

另请注意，您现有的数字测试 StrToIntDef(Value) > 0 会将零或负数视为字符串。这真的是你想要的吗？

如何强制 StrToInt、StrToIntDef 忽略十六进制值？

How to force StrToInt, StrToIntDef to ignore hex values?

delphi

delphi-10-seattle

string-conversion