UTF8 转换的有关问题
UTF8 转换的问题
在delphi里 把#24425赋给一个string 会得到一个"彩"字,
#33394 赋给string 会得到一个"色"字.
问题来了,如果反查? 通过一个汉字 得出这个码表位置?
------解决方案--------------------
如果用delphi 2009 以下的版本，string 是 AnsiString，
例如下面用的是 D7
在delphi里 把#24425赋给一个string 会得到一个"彩"字,
#33394 赋给string 会得到一个"色"字.
问题来了,如果反查? 通过一个汉字 得出这个码表位置?
UTF8
字符
码表
------解决方案--------------------
如果用delphi 2009 以下的版本，string 是 AnsiString，
例如下面用的是 D7
var
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;