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;
很久前的代码,忘记了来源,很好用
查看全文
相关阅读:
bzoj4423 [AMPPZ2013]Bytehattan
bzoj3643 Phi的反函数
hdu1024 Max Sum Plus Plus的另一种解法
hdu1024 Max Sum Plus Plus
bzoj3638 Cf172 k-Maximum Subsequence Sum
bzoj3620 似乎在梦中见过的样子
bzoj3667 Rabin-Miller算法
bzoj3680 吊打XXX
阿里Linux Shell脚本面试25个经典问答
编程面试的10大算法概念汇总
原文地址:https://www.cnblogs.com/wjhx/p/497727.html
最新文章
复杂下雨特效
canvas简单下雨特效
python下载文件的方法
Allocate exception for servlet XXX 基本异常
配置虚拟主机 和 打war包
HTTP 协议基本知识
部署web应用到虚拟主机的三种方式
Tomcat 服务器基本知识
C3P0连接池一些基本配置
JDBC连接池(数据源)
热门文章
自定义的一个JDBC工具类
PreparedStatement 和 Statement 实现基本的批处理
JDBC基本知识
使用JAXP进行sax解析
DOM生成XML文档与解析XML文档(JUNIT测试)
递归下降语法分析
LR(0)语法分析
javac 找不到文件 的可能原因
bzoj4417 [Shoi2013]超级跳马
bzoj4415 [Shoi2013]发牌
Copyright © 2011-2022 走看看