function HexStrToStr(const S:string):string;
//16进制字符串转换成字符串
var
t:Integer;
ts:string;
M,Code:Integer;
begin
t:=1;
Result:='';
while t<=Length(S) do
begin
while 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进制字符串转换成字符串
var
t:Integer;
ts:string;
M,Code:Integer;
begin
t:=1;
Result:='';
while t<=Length(S) do
begin
while 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;
解决方案 »
- 高手帮忙啊!关于插入数据库的问题!急急!菜鸟提问!
- 最近有几个生手需要我指导一下delphi,有没有培训材料,简单实用的??
- 怎样从剪贴板里获取ctrl + c复制的文件的路径
- 提一个非常简单的问题
- 无人能解,200分,另外给!!
- DELPHI 在调用C的DLL时出错?
- QuantumGrid问题多多,我想放弃它了,大家觉得这个系列控件怎么样?
- ADODATASET BATCHUPDATE方法 VS 存储过程
- 急!!!!Delphi中利用COM通讯的问题(只有24分的可用分,请见谅,下次可用分多了一点多加点!)
- 高分求购一份文档(数据库开发文档例子)
- 用adoquery.savetofile生成了一个xml文件
- (散分)杭州有哪些大型的有名的 IT企业,软件公司?
例如: $A就是10