delphi中实现汉字拼音声母查询,unit代码如下:
【程序编程相关:delphi小技巧集锦】 【推荐阅读:模拟Nokia手机输入的编辑框】unit unit1; 【扩展信息:使TStringGrid自适应宽度】interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs, stdctrls;type
tform1 = class(tform) listbox1: tlistbox; listbox2: tlistbox; edit1: tedit; label1: tlabel; procedure edit1change(sender: tobject); procedure formshow(sender: tobject); procedure formdestroy(sender: tobject); procedure edit1enter(sender: tobject); procedure edit1exit(sender: tobject); private { private declarations } public resultlist1:tstrings; end;var
form1: tform1;procedure searchbypyindexstr(pyindexstr :string);
implementation
{$r *.dfm}
function getpyindexchar(hzchar:string):string; begin ... 下一页