用以下转换不到??????一级汉字
function aPYM(hz:string):String;
begin
case WORD(hz[1]) shl 8 + WORD(hz[2]) of
$B0A1..$B0C4 : result := 'A';
$B0C5..$B2C0 : result := 'B';
$B2C1..$B4ED : result := 'C';
$B4EE..$B6E9 : result := 'D';
$B6EA..$B7A1 : result := 'E';
$B7A2..$B8C0 : result := 'F';
$B8C1..$B9FD : result := 'G';
$B9FE..$BBF6 : result := 'H';
$BBF7..$BFA5 : result := 'J';
$BFA6..$C0AB : result := 'K';
$C0AC..$C2E7 : result := 'L';
$C2E8..$C4C2 : result := 'M';
$C4C3..$C5B5 : result := 'N';
$C5B6..$C5BD : result := 'O';
$C5BE..$C6D9 : result := 'P';
$C6DA..$C8BA : result := 'Q';
$C8BB..$C8F5 : result := 'R';
$C8F6..$CBF9 : result := 'S';
$CBFA..$CDD9 : result := 'T';
$CDDA..$CEF3 : result := 'W';
$CEF4..$D188 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D4D1..$D7F9 : result := 'Z';
else
result := '?';
end;
function aPYM(hz:string):String;
begin
case WORD(hz[1]) shl 8 + WORD(hz[2]) of
$B0A1..$B0C4 : result := 'A';
$B0C5..$B2C0 : result := 'B';
$B2C1..$B4ED : result := 'C';
$B4EE..$B6E9 : result := 'D';
$B6EA..$B7A1 : result := 'E';
$B7A2..$B8C0 : result := 'F';
$B8C1..$B9FD : result := 'G';
$B9FE..$BBF6 : result := 'H';
$BBF7..$BFA5 : result := 'J';
$BFA6..$C0AB : result := 'K';
$C0AC..$C2E7 : result := 'L';
$C2E8..$C4C2 : result := 'M';
$C4C3..$C5B5 : result := 'N';
$C5B6..$C5BD : result := 'O';
$C5BE..$C6D9 : result := 'P';
$C6DA..$C8BA : result := 'Q';
$C8BB..$C8F5 : result := 'R';
$C8F6..$CBF9 : result := 'S';
$CBFA..$CDD9 : result := 'T';
$CDDA..$CEF3 : result := 'W';
$CEF4..$D188 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D4D1..$D7F9 : result := 'Z';
else
result := '?';
end;
解决方案 »
- delphi7 调用 金蝶kis财务接口 凭证 例子
- 求一与DelForEx相关的文件
- 求救!!!如何生成字段名称、字段类型、字段长度动态变化的临时表???????????
- TV树中Expanding事件level=2的代码为何不执行!
- 请问哪有delphi6帮助文档或object pascal翻译版下载?谢谢!
- 如何提取字符串中的一部分?
- 如何使打印预览效果有纵向和横向的效果
- 问个问题,很重要的思想,谢谢.
- --------- ADO 问题挑战 DELPHI50 + INFORMIX !! ------------
- 我靠,还是搞不定
- DEBUG时,光标指到数值变量,如何以HEX即时显示该变量值?
- 如何实现treeview.......?
$CEF4..$D188 : result := 'X';
->
$CEF4..$D1B8 : result := 'X';