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;
很久前的代码,忘记了来源,很好用
查看全文
相关阅读:
IntelliJ IDEA maven库下载依赖包速度慢的问题
安装 PHP
秒杀怎么样才可以防止超卖?基于mysql的事务和锁实现
MySQL 使用自增ID主键和UUID 作为主键的优劣比较详细过程(从百万到千万表记录测试)
架构师之路16年精选50篇
基于ELK和Python搭建简单的监控告警系统
MySQL5.7 利用keepalived来实现mysql双主高可用方案的详细过程
在线数据迁移
jedisLock—redis分布式锁实现
Intellij IDEA 最新旗舰版注册激活破解(2018亲测,可用)
原文地址:https://www.cnblogs.com/wjhx/p/497727.html
最新文章
[企业化NET]Window Server 2008 R2[3]-SVN 服务端 和 客户端 基本使用
EasyUI tab问题记录
[企业化NET]Window Server 2008 R2[2]-SVN 服务端 和 客户端 安装
[企业化NET]Window Server 2008 R2[1]-服务器基本安装即问题解决记录
jquery操作select(取值,设置选中)
【转载】js关闭当前页面(窗口)的几种方式总结
[转载]说说JSON和JSONP,也许你会豁然开朗,含jQuery用例
MS SQL Server查询优化方法 查询速度慢的原因很多,常见如下几种
浏览器URL参数解决方案
[AaronYang原创] 大话ASP.NET MVC3+ (C#与DOM与JS页面上的很炫的技巧)
热门文章
[转载]js正则表达式/replace替换变量方法
用less查看日志文件
怎样设置微信公众号不被别人知道
取消git init命令
MySQL 1303错误的解决方法(navicat)
cmd中javac和java使用及注意事项
Java 文件下载工具类
集合转数组的toArray()和toArray(T[] a)方法
notepad++ 怎么设置中文?
Spring系列之Spring常用注解总结
Copyright © 2011-2022 走看看