5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
maik 2003-08-21
- 打赏
- 举报
多谢!
timgreen 2003-08-21
- 打赏
- 举报
不好意思
bstr应为mystr
bstr应为mystr
timgreen 2003-08-21
- 打赏
- 举报
我找了一下 还没找到
这样吧 自己写一个
先用inttohex变成hex 存在tmp:string中吧
再
mystr:='';
for f:=1 to length(tmp) do
bstr:=bstr+hextob(tmp[f]);
function hextob(h:char):string;
begin
case h of
'1':return:='0001';
'2':return:='0010'
。。。。。
'f':return:='1111'
end;
end;
这样吧 自己写一个
先用inttohex变成hex 存在tmp:string中吧
再
mystr:='';
for f:=1 to length(tmp) do
bstr:=bstr+hextob(tmp[f]);
function hextob(h:char):string;
begin
case h of
'1':return:='0001';
'2':return:='0010'
。。。。。
'f':return:='1111'
end;
end;
