Delphi 中实现汉字拼音声母查询หน่วย代码如下：
บทที่หน่วย 1;
ส่วนต่อประสาน
ใช้
Windows, ข้อความ, sysutils, คลาส, กราฟิก, การควบคุม, รูปแบบ, กล่องโต้ตอบ
stdctrls;
พิมพ์
tform1 = คลาส (tform)
listbox1: tlistbox;
listbox2: tlistbox;
Edit1: Tedit;
label1: tlabel;
ขั้นตอน EDIT1CHANGE (ผู้ส่ง: tObject);
โพรซีเดอร์แบบฟอร์ม (ผู้ส่ง: tobject);
FORMDESTROY ขั้นตอน (ผู้ส่ง: TOBJECT);
ขั้นตอน EDIT1ENTER (ผู้ส่ง: tObject);
ขั้นตอน EDIT1EXIT (ผู้ส่ง: tObject);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
ผลลัพธ์ที่ 1: tStrings;
จบ;
วาจา
Form1: TFORM1;
ขั้นตอน searchByPyIndexstr (pyindexstr: string);
การดำเนินการ
{$ r *.dfm}
ฟังก์ชั่น getpyindexchar (hzchar: string): string;
เริ่ม
กรณี (คำ (hzchar [1]) shl 8 + word (hzchar [2])) ของ
$ B0A1 .. $ B0C4: ผลลัพธ์: = 'A';
$ B0C5 .. $ B2C0: ผลลัพธ์: = 'B';
$ B2C1 .. $ B4ED: ผลลัพธ์: = 'C';
$ B4EE .. $ B6E9: ผลลัพธ์: = 'D';
$ b6ea .. $ b7a1: ผลลัพธ์: = 'e';
$ B7A2 .. $ B8C0: ผลลัพธ์: = 'F';
$ B8C1 .. $ B9FD: ผลลัพธ์: = 'G';
$ B9FE .. $ BBF6: ผลลัพธ์: = 'H';
$ BBF7 .. $ BFA5: ผลลัพธ์: = 'J';
$ bfa6 .. $ c0ab: ผลลัพธ์: = 'k';
$ C0AC .. $ C2E7: ผลลัพธ์: = 'L';
$ C2E8 .. $ C4C2: ผลลัพธ์: = 'M';
$ c4c3 .. $ c5b5: ผลลัพธ์: = 'n';
$ C5B6 .. $ C5BD: ผลลัพธ์: = 'O';
$ C5BE .. $ C6D9: ผลลัพธ์: = 'P';
$ C6DA .. $ C8BA: ผลลัพธ์: = 'Q';
$ C8BB .. $ C8F5: ผลลัพธ์: = 'R';
$ C8F6 .. $ CBF9: ผลลัพธ์: = 'S';
$ cbfa .. $ cdd9: ผลลัพธ์: = 't';
$ CDDA .. $ CEF3: ผลลัพธ์: = 'W';
$ cef4 .. $ d1b8: ผลลัพธ์: = 'x';
$ d1b9 .. $ d4d0: ผลลัพธ์: = 'y';
$ d4d1 .. $ d7f9: ผลลัพธ์: = 'z';
อื่น
ผลลัพธ์: = ถ่าน (0);
จบ;
จบ;
ขั้นตอน searchByPyIndexstr (pyindexstr: string);
ฉลาก Notfound;
วาจา
ฉัน, J: จำนวนเต็ม;
hzchar: สตริง;
เริ่ม
สำหรับ i: = 0 ถึง form1.listbox1.items.count-1 ทำ
เริ่ม
สำหรับ j: = 1 ถึงความยาว (pyindexstr) ทำ
เริ่ม
hzchar: = form1.listbox1.items [i] [2*j-1]+form1.listbox1.items [i] [2*j];
ถ้า (pyindexstr [j] <> '?') และ (ตัวพิมพ์ใหญ่ (pyindexstr [j]) <> getpyindexchar (hzchar)) แล้ว
Goto Notfound;
จบ;
form1.resultlist1.add (form1.listbox1.items [i]);
Notfound:
จบ;
จบ;
ขั้นตอน tform1.edit1change (ผู้ส่ง: tobject);
เริ่ม
ถ้า edit1.Text <> '' แล้ว
เริ่ม
listbox2.items.clear;
Form1.ResultList1.Clear;
SearchByPyIndexstr (edit1.Text);
listbox2.items.addstrings (resultlist1);
จบ;
จบ;
ขั้นตอน TFORM1.FormShow (ผู้ส่ง: TOBJECT);
เริ่ม
ResultList1: = tStringList.create;
จบ;
ขั้นตอน TFORM1.FormDestroy (ผู้ส่ง: TOBJECT);
เริ่ม
ผลลัพธ์ที่ได้รับ 1 ฟรี;
จบ;
ขั้นตอน TFORM1.EDIT1ENTER (ผู้ส่ง: TOBJECT);
เริ่ม
edit1.Text: = '';
จบ;
ขั้นตอน tform1.edit1exit (ผู้ส่ง: tobject);
เริ่ม
edit1.Text: = '请输入声母';
จบ;
จบ.