UTF8 转换的问题

Question

在delphi里 把#24425赋给一个string 会得到一个"彩"字,
#33394 赋给string 会得到一个"色"字.
问题来了,如果反查? 通过一个汉字 得出这个码表位置?UTF8字符码表

Answer 1

如果用delphi 2009 以下的版本，string 是 AnsiString，
例如下面用的是 D7var
  wStr: WideString;
  pwc: PWideChar;
  i: Integer;
begin
  wStr := '彩色';
  pwc := PWideChar(wStr);
  for i := 0 to lstrlenW(pwc) - 1 do
    ShowMessage(Format('%s=#%d', [AnsiString(wStr[i + 1]), Ord(wStr[i + 1])]));
end;

Answer 2

sololie 好人,我本来就是用ord 但是值不对,奇怪现在有可以了.....
多谢啊