delphi的汉字编码问题.'编号'转换为#32534#21495

Question

窗体view as text 汉字'编号'显示格式 #32534#21495
求 汉字 转换为 #数字 的函数 算法 方法。
#32534这种格式是属于汉字的什么码呢？

Answer 1

问题 解决了
Function AnsiToUnicodeID(AnsiStr: String): String;
Var
  I, j, k: Integer;
  S: String;
Begin
  Result := '';
  If AnsiStr = '' Then Exit;
  j := 0;
  For I := 1 To Length(AnsiStr) Do
  Begin
    S := AnsiStr[I];
    k := Ord(S[1]);
    If k > 127 Then
      If j <> 0 Then
      Begin
        Result := Result + Format('#%d', [Ord(WideString(Chr(j) + Chr(k))[1])]);
        j := 0;
      End Else j := k
    Else
      Result := Result + Format('#%d', [k]);
  End;
End;showmessage(AnsiToUnicodeID('编号'));