关于数据转换问题?

Question

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

Answer 1

一时没看清楚，
呵呵var
  i : integer;
begin
  for i := $21 to $7E do
    memo1.Lines.Add(format('$%X',[i]) + ' : ' + char(i));
end;

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

怕了你。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;

Answer 6

asp_boy, 多谢! 给你加分.