16,748
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
germliucaixia 2008-07-30
- 打赏
- 举报
[Quote=引用 3 楼 yuqianyi1974 的回复:]
比如求'a'的16进制
var
s:string;
c:char;
d:string;
begin
s:='abc';
c:=s[1];
d:=inttohex(ord(c),2);
[/Quote]
就是这样
比如求'a'的16进制
var
s:string;
c:char;
d:string;
begin
s:='abc';
c:=s[1];
d:=inttohex(ord(c),2);
[/Quote]
就是这样
xjjrocker 2008-07-29
- 打赏
- 举报
简单，循环输出每个的16进制即可。
lengx7 2008-07-24
- 打赏
- 举报
学习了~
JeffChung 2008-07-22
- 打赏
- 举报
哇噻，一个多朋前的老贴子被顶起
有答案了楼主不结啊
有答案了楼主不结啊
dfasri 2008-07-22
- 打赏
- 举报
这个太好转换了吧=.=
首先一个LENGTH()设置一下
然后就可以用[]来访问
然后直接BYTE()来转换就可以换成16进制了
首先一个LENGTH()设置一下
然后就可以用[]来访问
然后直接BYTE()来转换就可以换成16进制了
喝口水 2008-07-22
- 打赏
- 举报
function strtohex(s:string):string;
begin
result:='';
for i:=1 to length(s) do
result:=result+inttohex(ord(s[i]));
end;
begin
result:='';
for i:=1 to length(s) do
result:=result+inttohex(ord(s[i]));
end;
cenjoyer 2008-07-16
- 打赏
- 举报
楼上的几个高手讲得对。
把字符串里的字符一个个读出来后，就是一个个的char。Ascii码。
再转换一下：
[Quote=引用 4 楼 gyk120 的回复:]
Result:=Result+IntToHex(Ord(Source[i]),2);
[/Quote]
把字符串里的字符一个个读出来后，就是一个个的char。Ascii码。
再转换一下：
[Quote=引用 4 楼 gyk120 的回复:]
Result:=Result+IntToHex(Ord(Source[i]),2);
[/Quote]
jacknes009 2008-06-16
- 打赏
- 举报
用inttohex就可以了
daixiulin 2008-06-16
- 打赏
- 举报
up
gyk120 2008-06-13
- 打赏
- 举报
function StringToHex(Source:string):string;
var
i:integer;
begin
for i:=1 to Length(Source) do
begin
Result:=Result+IntToHex(Ord(Source[i]),2);
end;
end;
var
i:integer;
begin
for i:=1 to Length(Source) do
begin
Result:=Result+IntToHex(Ord(Source[i]),2);
end;
end;
yuqianyi1974 2008-06-13
- 打赏
- 举报
比如求'a'的16进制
var
s:string;
c:char;
d:string;
begin
s:='abc';
c:=s[1];
d:=inttohex(ord(c),2);
var
s:string;
c:char;
d:string;
begin
s:='abc';
c:=s[1];
d:=inttohex(ord(c),2);
Rudeeeeeee 2008-06-13
- 打赏
- 举报
不可能
gyk120 2008-06-13
- 打赏
- 举报
估计要用用汇编转吧
http://dev.csdn.net/article/02/02776.shtm
http://dev.csdn.net/article/02/02776.shtm
