急!!如何将其他语言(俄语,法语,繁体)转换成unicode
RT.
比如 S:="Китай";//中国的俄语
问题:
1.怎样将Китай(俄语)转换成unicode?
2.法语,繁体其它语言呢?
目前只知道简体汉字转换成Unicode
//汉字 -> UniCode
function Chinese2UniCode(AiChinese : String) : Integer;
var
ch, cl : string[2];
a : array [1..2] of char;
begin
StringToWideChar(Copy(AiChinese, 1, 2), @(a[1]), 2);
ch := IntToHex(Integer(a[2]), 2);
cl := IntToHex(Integer(a[1]), 2);
Result := StrToInt('$' + ch + cl);
end;
谢谢先.