汉字编码问题

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  tmp,str: String;
  i:integer;
begin
  tmp:='一';
  str := '';
  for i:=1 to Length(tmp) do
    str := str +IntToHex(Ord(tmp[i]),2);
 end;
我如何将Str转换为汉字？

Answer 1

function HexToStr(mHex: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(mHex) div 2 do
    Result := Result + Chr(StrToIntDef('$' + Copy(mHex, I * 2 - 1, 2), 0));
end; { HexToStr }function StrToHex(mStr: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(mStr) do
    Result := Format('%s%.2x', [Result, Ord(mStr[I])]);
end; { StrToHex }