我有一个文本,里边没一行是一个用户的记录;
我要按用户的名字的顺序重新写这个文本;
也就是说按用户名字的拼音顺序写;
请各位大虾指点
我要按用户的名字的顺序重新写这个文本;
也就是说按用户名字的拼音顺序写;
请各位大虾指点
解决方案 »
- 为何在OpenPictureDialog运行时jpeg格式的图片就显示不出来?
- 1500分求购COM+实例,收到给分,分已发出,绝不食言,由于一个贴子只能发100分,请分别到15个帖子接分!!!!(10 of 15)
- 100分求Rose2002
- delphi:父框架(控件)大小改变时如何动态改变其所拥有的子窗体大小?
- 关于使用free后出现的问题?
- 谁用过Async Professional的控件发传真呀?还可以加分的哟!!!
- 求助,关于数据库表赋值的问题
- ASA v7.01:如何使编程时不会将字段用双引号括起来?
- 一个关于数据缓冲区的问题。50分。
- 自定义 Form 设计中的参数传递问题
- 应用程序和数据库链界的问题?
- 心情好散分啊,随先来随给的最多
Edit Name Search
ListBox Name SourceList
Items 输入一些字符串,如姓名等,用于提供检索数据
ListBox Name ResultList 3.键入以下两个函数
// 获取指定汉字的拼音索引字母,如:“汉”的索引字母是“H”
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(0);
end;
end;// 在指定的字符串列表SourceStrs中检索符合拼音索引字符串
PYIndexStr的所有字符串,并返回。
function SearchByPYIndexStr
( SourceStrs:TStrings;
PYIndexStr:string):string;
label NotFound;
var
i, j :integer;
hzchar :string;
begin
for i:=0 to SourceStrs.Count-1 do
begin
for j:=1 to Length(PYIndexStr) do
begin
hzchar:=SourceStrs[i][2*j-1]
+ SourceStrs[i][2*j];
if (PYIndexStr[j]<>'?') and
(UpperCase(PYIndexStr[j]) <>
GetPYIndexChar(hzchar)) then goto NotFound;
end;
if result='' then result := SourceStrs[i]
else result := result + Char
(13) + SourceStrs[i];
NotFound:
end;
end;4.增加编辑框Search的OnChange事件:
procedure TForm1.SearchChange(Sender: TObject);
var ResultStr:string;
begin
ResultStr:='';
ResultList.Items.Text := SearchByPYIndexStr
(Sourcelist.Items, Search.Text);
end; 5.编译运行后,在编辑框Search中输入要查询字符串的拼音首字符序列,检索结果列表ResultList就会列出检索到的信息,检索中还支持“?”通配符,对于难以确定的的文字使用“?”替代位置,可以实现更复杂的检索。
怎么得到汉字的拼音啊?
to fengjn(小枫) ( )
谢谢,不过我不是只用到首字符啊;
例如,一个是姓陈的,另一个是姓程的,那么我怎么做才能保证姓陈的排贼姓程的之前;
2 拼音的问题可以参见以下的帖子
http://expert.csdn.net/Expert/topic/1791/1791637.xml?temp=.2022364
http://expert.csdn.net/Expert/TopicView1.asp?id=1754307
等等,自己可以搜索一下
--------------------------------------
看!
那支正飞向太阳的蛾子.....
就是我!
--------------------------------------