delphi – 文件的十六进制视图

我想在备忘录中查看文件(十六进制)的内容.

我正在使用此代码：

var
  Buffer:String;
begin
  Buffer := '';
  AssignFile(sF,Source); //Assign file
  Reset(sF); 
  repeat
    Readln(sF,Buffer); //Load every line to a string.
    TempChar:=StrToHex(Buffer); //Convert to Hex using the function
    ...
  until EOF(sF);
end;

function StrToHex(AStr: string): string;
var
I,Len: Integer;
s: chr (0)..255;
//s:byte;
//s: char;
begin
  len:=length(AStr);
  Result:='';
  for i:=1 to len  do
  begin
    s:=AStr[i];

    //The problem is here. Ord(s) is giving false values (251 instead of 255)
    //And in general the output differs from a professional hex editor.

    Result:=Result +' '+IntToHex(Ord(s),2)+'('+IntToStr(Ord(s))+')';
  end;
  Delete(Result,1,1);
end;

当我将变量“s”声明为char(我知道char最多为255)时,我得到的结果十六进制值高达65535！

当我将变量“s”声明为字节或chr(0).. 255时,它会输出不同的十六进制值,与任何十六进制编辑器相比！

这是为什么？我怎样才能看到正确的值？

检查图像的差异.

第1张图片：Professional Hex Editor.

第二张图像：功能输出到备忘录.

?

谢谢.