delphi 中字符串与16进制、10进制转换函数
2016-04-07 15:16
731 查看
//字符串转成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;
相关文章推荐
- 十六进制字符串转化成字符串输出HexToStr(Delphi版、C#版)
- Delphi 实现16进制转字符串及字符串(中文)转16进制
- 关于Delphi字符串内存泄露的问题
- 深入了解Delphi 7中的四种消息框
- Windows的自带控件(比如TButton)大多数消息都由它自己处理,Delphi覆盖了那么多WM_函数优先级较低,一般用不上
- DELPHI异步选择模型UDP
- WM_ERASEBKGND官方解释(翻译),以及Delphi里所有的使用情况(就是绘制窗口控件背景色,并阻止进一步传递消息)
- Jedi项目,还真得好好看看,有许多控件和新封装的API(Delphi里面没有)
- 虚继承之单继承的内存布局(VC在编译时会把vfptr放到类的头部,这和Delphi完全一致)
- Delphi CreateProcess
- delphi FillChar的用法(转)
- Delphi GDI+基本用法总结
- delphi多线程设计
- Delphi中WebBrowser拦截网页Alert对话框消息(转)
- Delphi中Indy 10的安装和老版本的卸载
- delphi7 手动安装 indy10.2.3
- Delphi 高效读写锁
- Delphi 最小化程序到任务栏托盘 增加右键PopMenu
- delphi实现函数/过程
- Delphi开发的数据库程序在C:\PDOXUSRS.NET生成文件,拒绝访问及读写权限