史上最完整的“汉字-->拼音声母”处理pas单元(Delphi)

汉字-->拼音声母处理 Developed by cyw(QQ: 26890954) 2010.1.16 All Right Reserved. 一、特点： 1、支持多音字，支持所有中国汉字(共20336个)，包括难字、僻字、广东白话字、繁体字等所有计算机能显示的全部汉字。 例如：镕、啱、揾、叻、嘅、咁、門、長、發財、車、冇乜嘢。 2、对繁体字的多音字，优先采用与之对应的简体字第一个常用声母，确保两者的第一个音相同。如：发(fa)、發(bo fa)， 调整后的声母分别为：发(f)、發(fb)。 二、提供函数功能： 1、//获取指定汉字的拼音索引字母，如：汉 = h。多音字根据参数OnlyOne决定是否返回多个声母，如：行 = hx function GetPYIndex(const OneWord: string; const OnlyOne: Boolean = False): string; 2、//获取指定字符串的拼音索引字母（多音字总是取第一个音的声母)。如：中山大学 = zsdx function GetStrPYIndex(const Str: string): string; 3、//获取字符串Str中与拼音声母字符串PYStr匹配的起始位置。如：PosPY('zsdx'，'我来自中山大学') = 7 function PosPY(const PYStr, Str: String): Integer; 4、//判断字符串Str的拼音声母是否全部与PYStr相同。如：SamePY('zsdx', '中山大学') = True function SamePY(const PYStr, Str: String): Boolean; 5、//获取字符串Str中拼音声母串与字符串SubStr拼音声母串匹配的起始位置。如：PosTextPY('纵声大笑', '我来自中山大学') = 7 function PosTextPY(const SubStr, Str: String): Integer; 6、//判断字符串Str的拼音声母是否全部与字符串SubStr的拼音声母相同。如：SameTextPY('纵声大笑', '中山大学') = True function SameTextPY(const SubStr, Str: String): Boolean;