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 stringgrid行列的增加和删除

dbgrid导出excl表

Delphi设置屏幕分辨率的函数

Delphi 给动态数组添加一个元素

Delphi cxgrid 通过字段名取得列

使用indy解决base64回车换行问题

Delphi 获取系统内存状态

Delphi最全面的dbgrid点击标题实现排序

Delphi监控文件夹

Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息

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

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