delphi HexToInt

本文整理自网络，侵删。

 
function HexToInt(const HexStr: string): LongInt;
var
  iNdx: integer;
  cTmp: Char;
begin
  Result := 0;
  for iNdx := 1 to Length(HexStr) do begin
    cTmp := HexStr[iNdx]; // 字符串string内存中的第一位是length标识
    case cTmp of
      '0'..'9': Result := 16 * Result + (Ord(cTmp) - $30);
      'A'..'F': Result := 16 * Result + (Ord(cTmp) - $37);
      'a'..'f': Result := 16 * Result + (Ord(cTmp) - $57);
    else
      raise EConvertError.Create('Illegal character in hex string');
    end;
  end;
end;
 

相关阅读 >>

Delphi 如何快速从列表框tlistbox中删除重复项

Delphi和金山词霸制作批量单词翻译

Delphi wmi 获取网络信息

如何判断硬盘是fat32还是ntfs

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi 简单得多线程应用

Delphi 中有 iif() 函数

Delphi 写log的代码(按日期)

Delphi 几个实用的html解析函数

Delphi 2009 之 tcategorypanelgroup[5]: headerstyle

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

转载请注明出处：木庄网络博客 » delphi HexToInt