关于汉字拼音首字母程序错误的纠正(0分)

  • 主题发起人 主题发起人 尘莽
  • 开始时间 开始时间

尘莽

Unregistered / Unconfirmed
GUEST, unregistred user!
function GetPYStr(HZStr: WideString): String;
Var
S: String;
I: Word;
C: Char;
begin
Result := '';
For I := 1 To Length(HZStr)do
begin
S := HZStr;
if Length(S) = 1 then
C := S[1] else
case WORD(S[1]) * 256 + Byte(S[2]) of
$B0A1 .. $B0C4: C := 'A';
$B0C5 .. $B2C0: C := 'B';
$B2C1 .. $B4ED: C := 'C';
$B4EE .. $B6E9: C := 'D';
$B6EA .. $B7A1: C := 'E';
$B7A2 .. $B8C0: C := 'F';
$B8C1 .. $B9FD: C := 'G';
$B9FE .. $BBF6: C := 'H';
$BBF7 .. $BFA5: C := 'J';
$BFA6 .. $C0AB: C := 'K';
$C0AC .. $C2E7: C := 'L';
$C2E8 .. $C4C2: C := 'M';
$C4C3 .. $C5B5: C := 'N';
$C5B6 .. $C5BD: C := 'O';
$C5BE .. $C6D9: C := 'P';
$C6DA .. $C8BA: C := 'Q';
$C8BB .. $C8F5: C := 'R';
$C8F6 .. $CBF9: C := 'S';
$CBFA .. $CDD9: C := 'T';
$CDDA .. $CEF3: C := 'W';
$CEF4 .. $D1B8{原程序为: $D188}: C := 'X';
$D1B9 .. $D4D0: C := 'Y';
$D4D1 .. $D7F9: C := 'Z';
else
C := '?';
end;
Result := Result + C;
end;
end;

 
2000下是Unicode(UTF-8)了,怎么用?
我装了GB18030,有4字节汉字,怎么认?
有一些中文输入法,是可以通过 ime api 反向取编码的。
把那程序贴出来看看吗!!!
 
接受答案了.
 
后退
顶部