关于数据转换问题?

[simonvc]

如何将十六进制的字符串(00~FF)转成相应的ASCII字符，并且显示出来？ 譬如 '53' 显示为'S'. 多谢！

[asp_boy]

var
i : integer;
begin
for i := 33 to 126 do
memo1.Lines.Add(inttostr(i) + ' : ' + intToHex(i,0) + ' : ' + char(i));
end;

[liang_z]

楼上的人家要的不是这个呵

[asp_boy]

一时没看清楚，
呵呵

var
i : integer;
begin
for i := $21 to $7E do
memo1.Lines.Add(format('$%X',[i]) + ' : ' + char(i));
end;

[liang_z]

楼上的
你的两个东东好象没有差别呵

[simonvc]

还是未解决呀. 譬如: 在文本文件中有一字符串'65 66 67 68 69 70 71 72', 如何把它显示
为'A B C D E F G H' ?

[simonvc]

好像还是未解决,譬如在文本文件中有十六进制字符串'48 49 4A 4B 4C' 如何显示为
'H I J K L'?

[simonvc]

好像还是未解决,譬如在文本文件有十六进制字符串'48 49 4A 4B 4C', 如何显示成'H I J K L'?

[asp_boy]

怕了你。

var
i : integer;
begin
for i := $21 to $7E do
memo1.Lines.Add(format('$%X',[i]) + ' : ' + char(strtointdef(inttostr(i),0)));
/////////////////
memo1.Lines.Add('=========' + #13#10 + char(strtointdef('$'+'48',0)));
end;

[simonvc]

asp_boy, 多谢! 给你加分.

[asp_boy]

呵呵。
分数对于我来说没什么用的。
本来还想过来写个分割函数。
：）