delphi 中字符串与16进制、10进制转换函数
来源:互联网 发布:济南搜索引擎优化外包 编辑:程序博客网 时间:2024/05/29 07:25
文章出处:http://hi.baidu.com/myyear/item/cc93de16a606385af1090e99?qq-pf-to=pcqq.temporaryc2c
delphi 中字符串与16进制、10进制转换函数
//字符串转成16进制代码
function strToHexStr(str:string):string;
var
c:char;
ss:string;
i:integer;
begin
while str<>'' do begin
c:=str[1];
ss:=ss+format('%0x',[ord(c)]);
delete(str,1,1);
end;
strtohexStr:= ss;
end;
//16进制字符串转换成字符串
function HexStrToStr(const S:string):string;
var
t:Integer;
ts:string;
M,Code:Integer;
begin
t:=1;
Result:='';
while t<=Length(S) do
begin //xlh 2006.10.21
while (t<=Length(S)) and (not (S[t] in ['0'..'9','A'..'F','a'..'f'])) do
inc(t);
if (t+1>Length(S))or(not (S[t+1] in ['0'..'9','A'..'F','a'..'f'])) then
ts:='$'+S[t]
else
ts:='$'+S[t]+S[t+1];
Val(ts,M,Code);
if Code=0 then
Result:=Result+Chr(M);
inc(t,2);
end;
end;
// 16 进制转换为 10 进制;
//Delphi 中 16 进制数以 $ 为前缀,所以将 16 进制形式的字符串转换为整数即可:
function HexToDec(const AHexString: String): Integer;
begin
Result := StrToInt('$' + AHexString);
end;
- delphi 中字符串与16进制、10进制转换函数
- delphi 中字符串与16进制、10进制转换函数
- Delphi 16进制与字符串转换
- Delphi的字符串与16进制的相互转换函数的汇编代码
- Delphi下将字符串转换成16进制的小函数
- delphi进制转换函数
- delphi枚举与字符串转换
- PHP中字符串与多进制转换函数
- Delphi中字符与10/16进制互转换
- Java的十六进制与字符串之间互相转换函数(16进制与String转换)
- delphi 字符串转换为16进制整数 整数转换为16进制字符串
- Delphi中类型转换函数
- 16进制转换字符串函数
- delphi 枚举类型与字符串的转换
- 16进制数与字符串转换函数
- Delphi实现字符串与内存流和文件的快速转换函数
- delphi 字符串与内存流和文件的快速转换函数
- 16进制与字符串转换
- 008.Tomcat及Servlet配置深入解析
- MFC API——》ModifyStyle
- Android 中文API (94) —— MediaController
- CSS实现菜单栏制作,鼠标经过变色
- 009.get、post方法与HTTP协议之间的关系大揭秘
- delphi 中字符串与16进制、10进制转换函数
- 华为C语言编程规范(5)—可读性
- hdu 1686
- [linux] kernel modules make study.
- html中table设置每个单元格的不同颜色和宽度
- 010.JSP与Servlet交互深入详解
- Spring学习之DI(一)
- 循环程序设计
- 走进设计模式之——序言