Implementación de la consulta de consonantes iniciales de Pinyin de caracteres chinos en Delphi

Delphi 中实现汉字拼音声母查询, unidad 代码如下 ：

Unidad Unidad1;

interfaz

usos

Windows, mensajes, sysutils, clases, gráficos, controles, formularios, diálogos,

Stdctrls;

tipo

TForm1 = class (tForm)

Listbox1: tlistbox;

Listbox2: tlistbox;

Edit1: tedit;

Etiqueta1: tlabel;

Procedimiento edit1change (remitente: tobject);

Procedimiento FormShow (remitente: tobject);

procedimiento FormDestrOY (remitente: tobject);

procedimiento edit1enter (remitente: tobject);

procedimiento edit1Exit (remitente: tobject);

privado

{Declaraciones privadas}

público

ResultList1: tstrings;

fin;

varilla

Form1: tform1;

procedimiento SearchBypyIndexStr (pyindexstr: string);

implementación

{$ R *.dfm}

function getPyIndexchar (hzchar: string): string;

comenzar

Caso (palabra (Hzchar [1]) shl 8 + palabra (hzchar [2])) de

$ B0a1 .. $ b0c4: resultado: = 'a';

$ B0C5 .. $ B2C0: resultado: = 'B';

$ B2c1 .. $ b4ed: resultado: = 'c';

$ B4ee .. $ b6e9: resultado: = 'd';

$ B6ea .. $ b7a1: resultado: = 'e';

$ B7a2 .. $ b8c0: resultado: = 'f';

$ B8c1 .. $ b9fd: resultado: = 'g';

$ B9fe .. $ bbf6: resultado: = 'h';

$ Bbf7 .. $ bfa5: resultado: = 'j';

$ Bfa6 .. $ c0ab: resultado: = 'k';

$ C0AC .. $ C2E7: resultado: = 'l';

$ C2e8 .. $ c4c2: resultado: = 'm';

$ C4C3 .. $ C5B5: resultado: = 'n';

$ C5B6 .. $ C5BD: resultado: = 'O';

$ C5be .. $ c6d9: resultado: = 'p';

$ C6DA .. $ C8BA: resultado: = 'Q';

$ C8bb .. $ c8f5: resultado: = 'r';

$ C8f6 .. $ cbf9: resultado: = 's';

$ CBFA .. $ cdd9: resultado: = 't';

$ Cdda .. $ cef3: resultado: = 'w';

$ Cef4 .. $ d1b8: resultado: = 'x';

$ D1b9 .. $ d4d0: resultado: = 'y';

$ D4d1 .. $ d7f9: resultado: = 'z';

demás

Resultado: = char (0);

fin;

fin;

procedimiento SearchBypyIndexStr (pyindexstr: string);

etiqueta nofound;

varilla

I, J: entero;

Hzchar: cadena;

comenzar

Para i: = 0 a form1.listbox1.items.count-1 do

comenzar

Para j: = 1 a longitud (pyindexstr) do

comenzar

Hzchar: = form1.listbox1.Items [i] [2*j-1]+form1.listbox1.Items [i] [2*j];

if (pyindexstr [j] <> '?') y (uppercase (pyindexstr [j]) <> getpyindexchar (hzchar)) luego

GOTO nofound;

fin;

Form1.resultList1.add (form1.listbox1.Items [i]);

Extraviado:

fin;

fin;

procedimiento tForm1.Edit1Change (remitente: tobject);

comenzar

Si edit1.text <> '' entonces

comenzar

ListBox2.Items.Clear;

Form1.ResultList1.clear;

SearchBypyIndexStr (edit1.Text);

Listbox2.Items.addstrings (resultList1);

fin;

fin;

procedimiento tForm1.FormShow (remitente: tobject);

comenzar

ResultList1: = tStringList.create;

fin;

procedimiento tForm1.FormDestroy (remitente: tobject);

comenzar

ResultList1.Free;

fin;

procedimiento tForm1.Edit1Ender (remitente: tobject);

comenzar

Edit1.Text: = '';

fin;

procedimiento tForm1.Edit1Exit (remitente: tobject);

comenzar

Edit1.Text: = '请输入声母';

fin;

fin.