zoukankan
html css js c++ java
Delphi中取得汉字的首字母
function Tdm.GetHzPy(
const
AHzStr:
string
):
string
;
const
ChinaCode: array[
0
..
25
,
0
..
1
] of Integer
=
((
1601
,
1636
), (
1637
,
1832
), (
1833
,
2077
),
(
2078
,
2273
), (
2274
,
2301
), (
2302
,
2432
), (
2433
,
2593
), (
2594
,
2786
), (
9999
,
0000
),
(
2787
,
3105
), (
3106
,
3211
), (
3212
,
3471
), (
3472
,
3634
), (
3635
,
3722
), (
3723
,
3729
),
(
3730
,
3857
), (
3858
,
4026
), (
4027
,
4085
), (
4086
,
4389
), (
4390
,
4557
), (
9999
,
0000
),
(
9999
,
0000
), (
4558
,
4683
), (
4684
,
4924
), (
4925
,
5248
), (
5249
,
5589
));
var
i, j, HzOrd: integer;
//
Hz: string[2];
begin
i :
=
1
;
while
i
<=
Length(AHzStr)
do
begin
if
(AHzStr[i]
>=
#
160
) and (AHzStr[i
+
1
]
>=
#
160
) then
begin
HzOrd :
=
(Ord(AHzStr[i])
-
160
)
*
100
+
Ord(AHzStr[i
+
1
])
-
160
;
for
j :
=
0
to
25
do
begin
if
(HzOrd
>=
ChinaCode[j][
0
]) and (HzOrd
<=
ChinaCode[j][
1
]) then
begin
Result :
=
Result
+
char
(
byte
(
'
A
'
)
+
j);
break
;
end;
end;
Inc(i);
end
else
Result :
=
Result
+
AHzStr[i];
Inc(i);
end;
end;
很久前的代码,忘记了来源,很好用
查看全文
相关阅读:
转: 分布式系统编程,你到哪一级了?
window屏幕朝向的调整 Alt + Ctrl + 上下左右箭头
win10的安装与下载
Zookeeper的学习材料
配置文件的格式选型
转: YAML 语言教程 from(阮一峰)
Eclipse的 JSON Edit插件
转: 如何为你的开源项目选择一个合适的开源协议?
在Eclipse中使用SVN插件subclipse的教程
我们在呼唤上帝还是在召唤恶魔——警惕人工智能
原文地址:https://www.cnblogs.com/wjhx/p/497727.html
最新文章
nginx+keepalived高可用及双主模式【h】
修改ARP缓存表大小
linux的arp表满导致同网段无法ping通
Docker底层基石namespace与cgroup
kubectl 常用命令
Kubenetes里pod和service绑定的实现方式
k8s删除pod一直处于terminating状态
docker镜像拉取总结
如何从头开始确定虚拟SharePoint服务器场的配置(compute resource, network和storage)
如何确定服务器的网络使用率?
热门文章
[转载][概念]Storage Pool, Private RAID Group, Private LUN
SQL VM上磁盘延迟高, 但Host和Storage Array上的延迟却很低的问题
如何更换Office 2013的product key?
一个挺好用的在线时区转换工具
秒,毫秒,微秒,纳秒,皮秒,飞秒
公有云,私有云,混合云的区别
排查VMWare虚拟机的性能问题
如何为Failover Cluster添加Quorum disk
找出数组中前二大的数
STL之lambda表达式
Copyright © 2011-2022 走看看