delphi - 如何显示十六进制代码字符？

Question

我有一个文件，每行上都包含FB8E，FB8F，FB90之类的数字。

我想在我的程序中加载该文件并占用每一行并打印与该数字/行相对应的字符。

例如，我的第一行是FB8E，我想要将其转换为＃$ FB8E（阿拉伯语Kaf），我该怎么做？

Answer 1

如果您在D2009 / 2010中：

var
  F: TextFile;
  Line: string;
  Code: Integer;
  Ch: Char;

...
Readln(F, Line);
Code := StrToInt('$' + Line);
Ch := Char(Code);
...

否则，用WideChar替换Char。

当然，可以对代码进行一点压缩，但是为了清楚起见，我将其省略。

编辑：对于那些不惧怕类型转换的人，classes.pas中还有HexToBin函数。