delphi xe6中怎么获取汉字的GB码?

因为编程需要,我在delphi6下做的汉字取GB码,在XE6下根本得不到正确的结果。后来,在看了X次帮助文档后,才找到方法如下:

function StrToGB(s:string):string;
 Var
 ByteArray: TBytes;
 i: Integer;
 begin
     //将字符串转换为16进制GB编码
    ByteArray := BytesOf(s);
    Result :='';
    for i := Low(ByteArray) to High(ByteArray) do
      Result := Result + IntToHEx(ByteArray[i],2) + ' ';
 end;

注意:

使用单元要增加:uses System.SysUtils;

你可能感兴趣的:(delphi,xe6,汉字GB码,delphi,xe6,汉字GB码,delphi)