客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
var i: Integer; PY: string; s: string; function GetPYIndexChar(hzchar: string): char; begin case WORD(hzchar[1]) shl 8 + WORD(hzchar[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 := char(32); end; end; begin s := ''; i := 1; while i <= Length(sHZ) do begin PY := Copy(sHZ, i, 1); if PY >= Chr(128) then begin Inc(i); PY := PY + Copy(sHZ, i, 1); s := s + GetPYIndexChar(PY); end else s := s + PY; Inc(i); end; case mode of 1: result := UpperCase(s); 2: result := LowerCase(s); else result := s; end; //case end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论