delphi 字符串转换为16进制整数 整数转换为16进制字符串

本文整理自网络，侵删。

 
Function Str_HexToInt(Hex: String): integer;
  Var
    HexDigital: Set Of char;
    i: integer;
    Digital: String;
  Begin
    Result := 0;
    HexDigital := ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0', 'A', 'B',
'C','D', 'E', 'F', 'a', 'b', 'c', 'd', 'e', 'f'];
  If Length(Hex) = 0 Then Exit;
  For i := 1 To Length(Hex) Do
    Begin
      Digital := Copy(Hex, i, 1);
      If (i = 1) And (digital = '$') Then Continue;
    End;
    Digital := Copy(Hex, 1, 1);
    If Digital <> '$' Then Hex := '$' + Hex;
    //Result := StrToInt(Hex);
    Str_HexToInt:=StrToInt(Hex) ;
  End;
 
整数转换为16进制字符串
str := InttoHex()
 

相关阅读 >>

Delphi如何过xp的防火墙而不被拦截

Delphi firedac 连接sql server一些要注意的地方

Delphi中引用sqlite3

Delphi 获取系统服务service id

Delphi varchar和nvarchar区别

Delphi 串口控制继电器

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi 提高进程自身权限

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi 字符串查找函数

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

转载请注明出处：木庄网络博客 » delphi 字符串转换为16进制整数 整数转换为16进制字符串