unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls;
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Edit1: TEdit;
Edit2: TEdit;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function GetPinyin_shoupinma2(hz: String): ansiChar;//获取生僻字首拼码
begin
case hz[1] of
'桉': Result := 'A';
'铵': Result := 'A';
'螯': Result := 'A';
'苄': Result := 'B';
'孢': Result := 'B';
'吡': Result := 'B';
'铋': Result := 'B';
'萆': Result := 'B';
'缤': Result := 'B';
'豉': Result := 'C';
'苁': Result := 'C';
'黛': Result := 'D';
'酊': Result := 'D';
'哚': Result := 'D';
'甙': Result := 'D';
'菪': Result := 'D';
'癜': Result := 'D';
'啶': Result := 'D';
'窦': Result := 'D';
'莪': Result := 'E';
'呋': Result := 'F';
'茯': Result := 'F';
'苷': Result := 'G';
'膈': Result := 'G';
'钴': Result := 'G';
'胍': Result := 'G';
'呱': Result := 'G';
'胱': Result := 'G';
'枸': Result := 'G';
'斛': Result := 'H';
'诃': Result := 'H';
'琥': Result := 'H';
'癀': Result := 'H';
'茴': Result := 'H';
'荟': Result := 'H';
'藿': Result := 'H';
'蚧': Result := 'J';
'槿': Result := 'J';
'肼': Result := 'J';
'婧': Result := 'J';
'喹': Result := 'K';
'匮': Result := 'K';
'蠊': Result := 'L';
'靓': Result := 'L';
'缧': Result := 'L';
'蛎': Result := 'L';
'蓼': Result := 'L';
'啉': Result := 'L';
'膦': Result := 'L';
'癃': Result := 'L';
'莨': Result := 'L';
'苓': Result := 'L';
'蟆': Result := 'M';
'鳗': Result := 'M';
'蝥': Result := 'M';
'莓': Result := 'M';
'咪': Result := 'M';
'嘧': Result := 'M';
'茉': Result := 'M';
'萘': Result := 'N';
'喃': Result := 'N';
'脲': Result := 'N';
'哌': Result := 'P';
'杷': Result := 'P';
'泮': Result := 'P';
'癖': Result := 'P';
'嘌': Result := 'P';
'珀': Result := 'P';
'枇': Result := 'P';
'瞿': Result := 'Q';
'羟': Result := 'Q';
'嗪': Result := 'Q';
'芪': Result := 'Q';
'杞': Result := 'Q';
'荞': Result := 'Q';
'芩': Result := 'Q';
'祛': Result := 'Q';
'巯': Result := 'Q';
'髯': Result := 'R';
'麝': Result := 'S';
'鲨': Result := 'S';
//'麝': Result := 'S';
'噻': Result := 'S';
'痧': Result := 'S';
'肽': Result := 'T';
'佗': Result := 'T';
'肟': Result := 'W';
'酰': Result := 'X';
//'酰': Result := 'X';
'鑫': Result := 'X';
'醑': Result := 'X';
'鳕': Result := 'X';
'逍': Result := 'X';
'缬': Result := 'X';
'馨': Result := 'X';
'芎': Result := 'X';
'溴': Result := 'X';
'翳': Result := 'Y';
'龈': Result := 'Y';
'吲': Result := 'Y';
'怡': Result := 'Y';
'橼': Result := 'Y';
'妍': Result := 'Y';
'酯': Result := 'Z';
//'酯': Result := 'Z';
'跖': Result := 'Z';
'唑': Result := 'Z';
'蟑': Result := 'Z';
'竺': Result := 'Z';
//'蟑': Result := 'Z';
'赭': Result := 'Z';
'甾': Result := 'Z';
'喋': Result := 'D';
'楂': Result := 'Z';
'葆': Result := 'B';
'檗': Result := 'B';
'噁': Result := 'E';
'芙': Result := 'F';
'焗': Result := 'J';
'橘': Result := 'J';
'螵': Result := 'P';
'羧': Result := 'S';
'媞': Result := 'T';
'瘀': Result := 'Y';
'啫': Result := 'Z';
'癥': Result := 'Z';
'栀': Result := 'Z';
'腙': Result := 'Z';
'吖', '锕', '嗄', '锿', '捱', '嗳', '霭', '砹', '嗌', '嫒', '暧', '瑷', {'桉',}
'庵', '谙', '鹌', '埯', {'铵',} '揞', '犴', '黯', '坳', '嗷', '廒', '獒', '遨',
'聱'{, '螯'}, '鳌', '鏖', '媪', '岙', '骜', '鏊'{, '廒'}:
Result := 'a';
'岜', '粑', '茇', '菝', '魃', '鲅', '灞', '掰', '捭', '呗', '瘢', '癍', '阪',
'坂', '钣', '舨', '浜', '蒡', '勹'{, '孢'}, '煲', '龅', '鸨'{, '葆'}, '褓', '趵',
'陂', '鹎', '邶', '悖', '碚', '蓓', '褙', '鞴', '鐾', '贲', '锛', '畚', '坌',
'嘣', '甏', '荸', '匕'{, '吡'}, '妣', '秕', '俾', '舭', '畀', '哔', '荜', '狴'{,
'铋'}, '婢', '庳'{, '萆'}, '弼', '愎', '筚', '滗', '裨', '跸', '箅', '嬖', '篦',
'薜', '濞', '髀', '璧', '襞', '砭', '笾', '煸', '蝙', '鳊', '窆', '匾', '碥',
'褊', '弁', '忭', '汴'{, '苄'}, '缏', '飑', '髟', '骠', '瘭', '镖', '飙', '飚',
'镳', '婊', '裱', '鳔', '蹩', '傧'{, '缤'}, '槟', '镔', '豳', '殡', '膑', '髌',
'鬓', '邴', '禀', '摒', '饽', '啵', '孛', '亳', '钹', '鹁', '踣', '礴', '跛',
'簸', '擘'{, '檗'}, '逋', '钸', '晡', '醭', '卟', '钚', '瓿', '玢', '宀', '疒':
Result := 'b';
'嚓', '礤', '骖', '黪', '粲', '璨', '伧', '嘈', '漕', '艚', '螬', '艹', '恻',
'岑', '涔', '噌', '杈', '馇', '锸', '猹', '槎', '檫', '衩', '镲', '汊', '姹',
'钗', '侪', '虿', '瘥', '觇', '婵', '孱', '禅', '廛', '潺', '镡', '蟾', '躔',
'谄', '蒇', '冁', '忏', '羼', '伥', '娼', '菖', '阊', '鲳', '苌', '徜', '嫦',
'昶', '惝', '氅', '怅', '鬯', '怊', '焯', '晁', '耖', '砗', '屮', '坼', '抻',
'琛', '嗔', '宸', '谌', '碜', '龀', '榇', '谶', '柽', '蛏', '铛', '瞠', '丞',
'枨', '埕', '铖', '裎', '塍', '酲', '哧', '蚩', '鸱', '眵', '笞', '嗤', '媸',
'螭', '魑', '茌', '墀', '踟', '篪'{, '豉'}, '褫', '彳', '叱', '饬', '敕', '啻',
'傺', '瘛', '忡', '茺', '舂', '憧', '艟', '铳', '瘳', '俦', '帱', '惆', '雠',
'樗', '刍', '蜍', '蹰', '杵', '楮', '褚', '亍', '怵', '绌', '憷', '黜', '搋',
'啜', '嘬', '踹', '巛', '氚', '舡', '遄', '舛', '钏', '怆', '陲', '棰', '槌',
'蝽', '莼', '鹑', '踔', '辍', '龊', '呲', '祠', '茈', '鹚', '糍'{, '苁'}, '枞',
'骢', '璁', '淙', '琮', '楱', '腠', '辏', '徂', '殂', '猝', '蔟', '蹙', '蹴',
'氽', '汆', '撺', '镩', '爨', '榱', '璀', '啐', '悴', '萃', '毳', '皴', '忖',
'蹉', '嵯', '痤', '矬', '鹾', '脞', '厝', '锉', '膪', '澶', '骣':
Result := 'c';
'哒', '耷', '嗒', '褡', '妲', '怛', '笪', '靼', '鞑', '岱'{, '甙'}, '绐', '迨',
'玳', '埭'{, '黛'}, '眈', '聃', '殚', '瘅', '箪', '儋', '疸', '啖', '萏', '澹',
'裆', '谠', '凼', '宕', '砀'{, '菪'}, '叨', '忉', '氘', '纛', '锝', '噔', '簦',
'戥', '嶝', '磴', '镫', '羝', '嘀', '镝', '籴', '荻', '觌', '氐', '诋', '邸',
'坻', '柢', '砥', '骶', '娣', '谛', '棣', '睇', '碲', '嗲', '巅', '癫', '踮',
'阽', '坫', '玷', '钿'{, '癜'}, '簟', '貂', '鲷', '铞', '垤', '瓞', '堞', '揲',
'耋', '牒', '蹀', '鲽', '仃', '玎', '疔', '耵'{, '酊'}{, '啶'}, '腚', '碇', '铥',
'咚', '岽', '氡', '鸫', '垌', '峒', '胨', '胴', '硐', '蔸', '篼', '蚪'{, '窦'},
'嘟', '渎', '椟', '牍', '黩', '髑', '笃', '芏', '蠹', '椴', '煅', '簖', '怼',
'碓', '憝', '镦', '礅', '盹', '趸', '沌', '炖', '砘', '咄', '裰', '铎', '踱'{,
'哚'}, '缍', '沲', '卩', '亻', '赕', '铫', '町', '铤', '夂', '丶':
Result := 'd';
'屙'{, '莪'}, '锇', '婀', '呃', '苊', '轭', '垩', '谔', '阏', '愕', '萼', '腭',
'锷', '鹗', '颚', '噩', '鳄', '蒽', '摁', '鸸', '鲕', '迩', '珥', '铒', '佴',
'嗯', '唔', '诶':
Result := 'e';
'垡', '砝', '幡', '蕃', '燔', '蹯', '蘩', '畈', '梵', '邡', '枋', '钫', '鲂',
'舫', '妃', '绯', '扉', '蜚', '霏', '鲱', '淝', '腓', '悱', '斐', '榧', '翡',
'篚', '狒', '痱', '镄', '棼', '鼢', '偾', '鲼', '瀵', '沣', '砜', '葑', '酆',
'唪', '俸', '缶'{, '呋'}, '趺', '麸', '稃', '跗', '凫', '孚'{, '芙'}, '芾', '怫',
'绂', '绋', '苻', '祓', '罘'{{, '茯'}, '郛', '砩', '莩', '蚨', '匐', '桴', '艴',
'菔', '蜉', '幞', '蝠', '黻', '拊', '滏', '黼', '驸', '鲋', '赙', '蝮', '鳆',
'馥', '攵', '犭':
Result := 'f';
'旮', '伽', '钆', '尜', '尕', '尬', '陔', '垓', '赅', '丐', '戤', '坩', '泔'{,
'苷'}, '疳', '酐', '尴', '澉', '橄', '擀', '旰', '矸', '绀', '淦', '罡', '筻',
'戆', '槔', '睾', '杲', '缟', '槁', '藁', '诰', '郜', '锆', '圪', '纥', '袼',
'鬲', '嗝', '塥', '搿'{, '膈'}, '镉', '骼', '哿', '舸', '虼', '硌', '哏', '亘',
'艮', '茛', '赓', '哽', '绠', '鲠', '肱', '蚣', '觥', '珙', '佝', '缑', '篝',
'鞲', '岣'{, '枸'}, '笱', '诟', '媾', '彀', '遘', '觏', '轱', '鸪', '菰', '蛄',
'觚', '酤', '毂', '鹘', '汩', '诂', '牯', '罟'{, '钴'}, '嘏', '臌', '瞽', '崮',
'梏', '牿', '痼', '锢', '鲴'{, '胍'}, '鸹'{, '呱'}, '卦', '诖', '倌', '鳏', '掼',
'涫', '盥', '鹳', '咣', '桄'{, '胱'}, '犷', '妫', '皈', '鲑', '宄', '庋', '匦',
'晷', '簋', '刿', '炅', '鳜', '衮', '绲', '磙', '鲧', '呙', '埚', '崞', '聒',
'蝈', '帼', '掴', '虢', '馘', '猓', '椁', '蜾', '桧', '莞', '呷':
Result := 'g';
'鹄', '铪', '嗨', '胲', '醢', '顸', '蚶', '鼾', '邗', '晗', '焓', '菡', '颔',
'撖', '瀚', '绗', '颃', '沆', '蒿', '嚆', '薅', '蚝', '嗥', '濠', '昊', '皓',
'颢', '灏'{, '诃'}, '嗬', '劾', '曷', '盍', '颌', '阖', '翮', '壑', '桁', '珩',
'蘅', '訇', '薨', '闳', '泓', '荭', '蕻', '黉', '讧', '瘊', '篌', '糇', '骺',
'后', '逅', '堠', '鲎', '虍', '烀', '轷', '唿', '惚', '滹', '囫'{, '斛'}, '猢',
'煳', '鹕', '槲', '醐', '觳', '浒'{, '琥'}, '冱', '岵', '怙', '戽', '祜', '笏',
'扈', '瓠', '鹱', '骅', '铧', '桦', '踝', '獾', '洹', '萑', '锾', '寰', '缳',
'鬟', '奂', '浣', '逭', '漶', '鲩', '擐', '肓', '隍', '徨', '湟', '遑', '潢',
'璜', '篁'{, '癀'}, '蟥', '鳇', '诙', '咴', '虺', '晖', '珲', '麾', '隳', '洄'{,
'茴'}, '哕', '浍'{, '荟'}, '恚', '彗', '喙', '缋', '蕙', '蟪', '阍', '馄', '诨',
'溷', '耠', '锪', '劐', '攉', '钬', '夥', '镬', '嚯'{, '藿'}, '蠖', '砉', '圜',
'後':
Result := 'h';
#0: Result := 'i';
'丌', '叽', '乩', '玑', '芨', '矶', '咭', '剞', '唧', '屐', '笄', '嵇', '犄',
'赍', '跻', '畿', '齑', '墼', '羁', '岌', '亟', '佶', '笈', '戢', '殛', '楫',
'蒺', '瘠', '蕺', '虮', '掎', '戟', '嵴', '麂', '芰', '哜', '洎', '觊', '偈',
'暨', '跽', '霁', '鲚', '稷', '鲫', '髻', '骥', '迦', '浃', '珈', '痂', '笳',
'袈', '葭', '跏', '镓', '岬', '郏', '恝', '戛', '铗', '蛱', '胛', '瘕', '戋',
'菅', '湔', '犍', '搛', '缣', '蒹', '鲣', '鹣', '鞯', '囝', '枧', '笕', '趼',
'睑', '裥', '锏', '谫', '戬', '翦', '謇', '蹇', '牮', '谏', '楗', '毽', '腱',
'僭', '踺', '茳', '豇', '缰', '礓', '耩', '洚', '绛', '犟', '糨', '艽', '姣',
'茭', '蛟', '跤', '僬', '鲛', '鹪', '佼', '挢', '皎', '敫', '徼', '噍', '醮',
'疖', '喈', '嗟', '孑', '讦', '诘', '拮', '桀', '婕', '颉', '碣', '鲒', '羯'{,
'蚧'}, '骱', '钅', '矜', '衿', '卺', '堇', '廑', '馑'{, '槿'}, '瑾', '妗', '荩',
'赆', '缙', '觐', '噤', '泾', '旌', '菁', '腈', '阱', '刭'{, '肼'}, '儆', '憬',
'弪', '迳', '胫'{, '婧'}, '獍', '扃', '迥', '鸠', '赳', '阄', '啾', '鬏', '柩',
'桕', '噘', '孓', '珏', '崛', '桷', '觖', '厥', '劂', '谲', '獗', '蕨', '橛',
'镢', '蹶', '矍', '爝', '皲', '筠', '麇', '捃', '纟', '廴', '僦', '鹫', '苴',
'掬', '椐', '琚', '锔', '裾', '雎', '鞫', '莒', '榉', '榘', '龃', '踽', '讵',
'苣', '钜', '倨', '犋', '飓', '窭', '屦', '遽', '醵', '涓', '镌', '蠲', '锩',
'桊', '狷', '隽', '鄄':
Result := 'j';
'蚵', '咔', '佧', '胩', '锎', '剀', '垲', '恺', '铠', '蒈', '锴', '忾', '龛',
'戡', '侃', '莰', '阚', '瞰', '伉', '闶', '钪', '尻', '栲', '铐', '犒', '珂',
'轲', '疴', '钶', '颏', '稞', '窠', '瞌', '蝌', '髁', '岢', '恪', '氪', '骒',
'缂', '嗑', '溘', '锞', '裉', '铿', '倥', '崆', '箜', '芤', '眍', '叩', '筘',
'蔻', '刳', '堀', '骷', '绔', '喾', '侉', '蒯', '郐', '哙', '狯', '脍', '髋',
'诓', '哐', '诳', '夼', '邝', '圹', '纩', '贶', '悝', '逵', '馗'{, '喹'}, '揆',
'暌', '睽', '蝰', '夔', '跬'{, '匮'}, '喟', '愦', '蒉', '篑', '聩', '琨', '锟',
'髡', '醌', '鲲', '悃', '阃', '栝', '蛞':
Result := 'k';
'冫'{, '靓'}, '邋', '旯', '砬', '剌', '瘌', '崃', '徕', '涞', '铼', '赉', '睐',
'濑', '癞', '籁', '岚', '褴', '斓', '镧', '榄', '漤', '罱', '啷'{, '莨'}, '稂',
'锒', '螂', '阆', '蒗', '唠', '崂', '痨', '铹', '醪', '栳', '铑', '耢', '仂',
'叻', '泐', '鳓', '嫘'{, '缧'}, '檑', '羸', '耒', '诔', '酹', '嘞', '塄', '愣',
'骊', '喱', '鹂', '缡', '蓠', '蜊', '嫠', '鲡', '罹', '藜', '黧', '蠡', '俚',
'娌', '逦', '锂', '澧', '醴', '鳢', '呖', '坜', '苈', '戾', '枥', '疠', '俪',
'栎', '疬', '轹', '郦', '猁', '砺', '莅', '唳', '笠', '粝'{, '蛎'}, '詈', '跞',
'雳', '溧', '篥', '奁', '裢', '鲢', '濂', '臁'{, '蠊'}, '琏', '裣', '蔹', '娈',
'殓', '楝', '潋', '椋', '墚', '踉', '魉', '嘹', '寮', '獠', '缭', '鹩', '钌'{,
'蓼'}, '尥', '咧', '冽', '洌', '埒', '捩', '趔', '躐', '鬣'{, '啉'}, '粼', '嶙',
'遴', '辚', '瞵', '麟', '廪', '懔', '檩', '蔺'{, '膦'}, '躏', '囹', '泠'{, '苓'},
'柃', '瓴', '棂', '绫', '翎', '聆', '蛉', '鲮', '酃', '呤', '熘', '浏', '旒',
'遛', '骝', '镏', '鎏', '绺', '锍', '鹨', '泷', '茏', '栊', '珑', '胧', '砻'{,
'癃'}, '垅', '偻'{, '偻'}, '喽', '蒌', '耧', '蝼', '髅', '嵝', '瘘', '镂', '噜',
'撸', '垆', '泸', '栌', '胪', '轳', '鸬', '舻', '鲈', '橹', '镥', '辂', '渌',
'逯', '漉', '辘', '璐', '簏', '鹭', '氇', '闾', '榈', '稆':
Result := 'l';
'膂', '褛', '栾', '鸾', '脔', '銮', '锊', '囵', '捋', '猡', '脶', '椤', '镙',
'倮', '瘰', '蠃', '泺', '荦', '珞', '摞', '漯', '雒', '呒', '嬷'{, '蟆'}, '犸',
'杩', '唛', '霾', '荬', '劢', '颟', '鞔'{, '鳗'}, '螨', '墁', '幔', '缦', '熳',
'镘', '邙', '硭', '漭', '蟒', '牦', '旄', '蛑', '髦'{, '蝥'}, '蟊', '峁', '泖',
'茆', '昴', '耄', '袤', '瑁', '瞀', '懋'{, '莓'}, '嵋', '湄', '猸', '楣', '镅',
'鹛', '浼', '袂', '魅', '扪', '钔', '焖', '懑', '虻', '甍', '瞢', '朦', '礞',
'艨', '勐', '艋', '蜢', '懵', '蠓'{, '咪'}, '祢', '猕', '縻', '麋', '蘼', '芈',
'弭', '敉', '脒', '糸', '汨', '宓', '谧'{, '嘧'}, '沔', '黾', '眄', '湎', '腼',
'喵', '鹋', '杪', '眇', '淼', '缈', '邈', '咩', '篾', '蠛', '岷', '玟', '苠',
'珉', '缗', '闵', '泯', '愍', '鳘', '茗', '冥', '溟', '暝', '瞑', '酩', '缪',
'谟', '嫫', '馍', '麽', '殁'{, '茉'}, '秣', '蓦', '貊', '瘼', '镆', '貘', '耱',
'哞', '侔', '眸', '鍪', '毪', '仫', '沐', '坶', '苜', '钼', '渑':
Result := 'm';
'拗', '廾', '乜', '镎', '肭', '衲', '捺', '艿', '柰'{, '萘'}, '鼐', '囡'{, '喃'},
'楠', '赧', '腩', '蝻', '囔', '馕', '曩', '攮', '孬', '呶', '硇', '铙', '猱',
'蛲', '垴', '瑙', '讷', '坭', '怩', '铌', '猊', '鲵', '伲', '旎', '昵', '睨',
'鲇', '鲶', '黏', '辇', '廿', '埝', '茑', '袅', '嬲'{, '脲'}, '陧', '臬', '嗫',
'颞', '蹑', '蘖', '咛', '聍', '佞', '甯', '妞', '忸', '狃', '侬', '哝', '耨',
'孥', '驽', '弩', '胬', '钕', '恧', '衄', '傩', '喏', '搦', '锘', '恁':
Result := 'n';
'噢', '讴', '瓯', '耦', '怄':
Result := 'o';
'钯', '拚', '彷', '冖', '葩'{, '杷'}, '筢', '俳'{, '哌'}, '蒎', '爿', '蹒', '蟠'{,
'泮'}, '袢', '襻', '滂', '逄', '螃', '脬', '庖', '狍', '匏', '疱', '醅', '锫',
'帔', '旆', '辔', '霈', '湓', '怦', '嘭', '堋', '蟛', '丕', '纰', '邳', '铍',
'噼', '芘'{, '枇'}, '蚍', '郫', '陴', '埤', '罴', '蜱', '貔', '鼙', '庀', '仳',
'圮', '擗'{, '癖'}, '淠', '媲', '睥', '甓', '犏', '翩', '骈', '胼', '蹁', '谝',
'剽', '缥'{, '螵'}, '殍', '瞟'{, '嘌'}, '嫖', '氕', '丿', '苤', '姘', '嫔', '颦',
'榀', '牝', '娉', '俜', '枰', '鲆', '钋', '鄱', '皤', '叵', '钷', '笸'{, '珀'},
'掊', '裒', '攴', '噗', '匍', '璞', '濮', '镤', '溥', '氆', '镨', '蹼', '刂',
'忄', '尢':
Result := 'p';
'匚', '袷', '湫', '峤', '趄'{, '瞿'}, '桤', '萋', '嘁', '槭', '蹊', '亓', '圻',
'岐'{, '芪'}, '耆', '颀', '淇', '萁', '骐', '琦', '琪', '祺', '蛴', '綦', '蜞',
'蕲', '鳍', '麒', '屺', '芑'{, '杞'}, '绮', '綮', '汔', '荠', '葺', '碛', '憩',
'葜', '髂', '阡', '芊', '佥', '岍', '悭', '愆', '骞', '搴', '褰', '钤', '虔',
'掮', '箝', '肷', '慊', '缱', '芡', '茜', '倩', '椠', '戕', '戗', '跄', '蜣',
'锖', '锵', '镪', '嫱', '樯'{, '羟'}, '襁', '炝', '硗', '跷', '劁', '缲'{, '荞'},
'谯', '憔', '鞒', '樵', '愀', '诮', '妾', '挈', '惬', '箧', '锲', '衾'{, '芩'}{,
'嗪'}, '溱', '噙', '檎', '螓', '锓', '吣', '揿', '圊', '蜻', '鲭', '檠', '黥',
'苘', '謦', '箐', '磬', '罄', '跫', '銎', '邛', '穹', '茕', '筇', '蛩', '蚯',
'楸', '鳅', '犰', '虬', '俅', '逑', '赇'{, '巯'}, '遒', '裘', '蝤', '鼽', '糗',
'岖', '诎'{, '祛'}, '蛐', '麴', '黢', '劬', '朐', '鸲', '蕖', '磲', '璩', '蘧',
'氍', '癯', '衢', '蠼', '阒', '觑', '悛', '诠', '荃', '辁', '铨', '筌', '蜷',
'鬈', '畎', '绻', '悫', '阕', '阙', '逡', '郄'{, '镪'}:
Result := 'q';
'蚺'{, '髯'}, '苒', '禳', '穰', '荛', '桡', '娆', '荏', '稔', '仞', '轫', '饪',
'衽', '肜', '狨', '嵘', '榕', '蝾', '糅', '蹂', '鞣', '铷', '嚅', '濡', '薷',
'襦', '颥', '洳', '溽', '缛', '蓐', '朊', '蕤', '芮', '枘', '蚋', '睿', '偌',
'箬':
Result := 'r';
'灬', '杓', '丨', '凵', '葚', '仨', '卅', '飒', '脎'{, '噻'}, '毵', '糁', '馓',
'搡', '磉', '颡', '缫', '臊', '鳋', '埽', '瘙', '啬', '铯', '穑', '铩'{, '痧'},
'裟'{, '鲨'}, '唼', '歃', '霎', '彡', '芟', '姗', '钐', '埏', '舢', '跚', '潸',
'膻', '讪', '疝', '骟', '鄯', '嬗', '蟮', '鳝', '殇', '觞', '熵', '垧', '绱',
'筲', '艄', '蛸', '劭', '潲', '猞', '畲', '佘', '厍', '滠'{, '麝'}, '诜', '哂',
'矧', '谂', '渖', '胂', '椹', '蜃', '笙', '眚', '晟', '嵊', '蓍', '酾', '鲺',
'饣', '炻', '埘', '莳', '鲥', '豕', '礻', '贳', '舐', '轼', '铈', '弑', '谥',
'筮', '螫', '艏', '狩', '绶', '殳', '纾', '姝', '倏', '菽', '摅', '毹', '秫',
'塾', '沭', '腧', '澍', '唰', '蟀', '闩', '涮', '孀', '氵', '妁', '铄', '嗍',
'搠', '蒴', '槊', '厶', '咝', '鸶', '缌', '蛳', '厮', '锶', '澌', '汜', '兕',
'姒', '祀', '泗', '驷', '俟', '笥', '耜', '忪', '凇', '崧', '淞', '菘', '嵩',
'燧', '邃', '狲', '荪', '飧', '隼', '榫', '娑', '挲'{, '挲'}{, '挲'}, '桫', '睃',
'嗦', '唢', '莘', '悚', '竦', '嗖', '溲', '馊', '飕', '锼', '螋', '叟', '嗾',
'瞍', '薮', '稣', '夙', '涑', '谡', '嗉', '愫', '蔌', '觫', '簌', '狻', '荽',
'眭', '睢', '濉', '谇':
Result := 's';
'沓', '呔', '焘', '钭', '冂', '苕', '扌', '趿', '铊', '溻', '鳎', '闼', '遢',
'榻', '骀', '邰', '炱', '跆', '鲐', '薹'{, '肽'}, '钛', '昙', '郯', '覃', '锬',
'忐', '钽', '铴', '羰', '镗', '饧', '溏', '瑭', '樘', '螗', '螳', '醣', '帑',
'傥', '耥', '韬', '饕', '洮', '啕', '鼗', '忑', '忒', '铽', '慝', '滕', '绨',
'缇', '鹈', '醍', '倜', '悌', '逖', '裼', '畋', '阗', '忝', '殄', '掭', '佻',
'祧', '笤', '龆', '蜩', '髫', '鲦', '窕', '粜', '萜', '餮', '莛', '婷', '葶',
'蜓', '霆', '梃', '嗵', '仝', '佟', '茼', '砼', '僮', '潼', '恸', '骰', '荼',
'酴', '钍', '堍', '菟', '抟', '疃', '彖', '煺', '暾', '饨', '豚'{, '氽'}, '乇'{,
'佗'}, '坨', '沱', '柁', '砣', '跎', '酡', '橐', '鼍', '庹', '柝', '箨':
Result := 't';
'亠', '娲', '佤', '腽', '崴', '剜', '蜿', '纨', '芄', '绾', '脘', '菀', '琬',
'畹', '罔', '惘', '辋', '魍', '偎', '逶', '隈', '葳', '煨', '薇', '囗', '帏',
'沩', '闱', '涠', '帷', '嵬', '炜', '玮', '洧', '娓', '诿', '隗', '猥', '痿',
'艉', '韪', '鲔', '軎', '猬', '阌', '雯', '刎', '汶', '璺', '蓊', '蕹', '倭',
'莴', '喔'{, '肟'}, '幄', '渥', '硪', '龌', '圬', '邬', '浯', '蜈', '鼯', '仵',
'妩', '庑', '忤', '怃', '迕', '牾', '鹉', '兀', '阢', '杌', '芴', '焐', '婺',
'痦', '骛', '寤', '鹜', '鋈':
Result := 'w';
'郇', '彐', '噱', '荨', '圩', '兮', '穸', '郗', '唏', '奚', '浠', '欷', '淅',
'菥', '粞', '翕', '舾', '皙', '僖', '蜥', '嬉', '樨', '歙', '熹', '羲', '螅',
'蟋', '醯', '曦', '鼷', '觋', '隰', '玺', '徙', '葸', '屣', '蓰', '禧', '饩',
'阋', '舄', '禊', '狎', '柙', '硖', '遐', '瑕', '黠', '罅', '氙', '祆', '籼',
'莶', '跹'{, '酰'}, '暹', '娴', '痫', '鹇', '冼', '猃', '蚬', '筅', '跣', '藓',
'燹', '岘', '苋', '霰', '芗', '缃', '葙', '骧', '庠', '饷', '飨', '鲞', '蟓',
'枭', '哓', '枵', '骁', '绡'{, '逍'}, '潇', '箫', '魈', '崤', '筱', '偕', '勰',
'撷'{, '缬'}, '蕈', '绁', '亵', '渫', '榍', '榭', '廨', '獬', '薤', '邂', '燮',
'瀣', '躞', '昕', '歆'{, '馨'}{, '鑫'}, '囟', '陉', '硎', '擤', '荇', '悻'{, '芎'},
'咻', '庥', '鸺', '貅', '馐', '髹', '岫'{, '溴'}, '盱', '胥', '顼', '诩', '栩',
'糈'{, '醑'}, '洫', '勖', '溆', '煦', '蓿', '谖', '揎', '萱', '暄', '煊', '儇',
'痃', '漩', '璇', '泫', '炫', '铉', '渲', '楦', '碹', '镟', '泶', '踅'{, '鳕'},
'谑', '埙', '窨', '獯', '薰', '曛', '醺', '峋', '恂', '洵', '浔', '荀', '鲟',
'徇', '巽':
Result := 'x';
'肀', '剡', '桠', '伢', '岈', '琊', '睚', '痖', '迓', '垭', '娅', '砑', '氩',
'揠', '恹', '胭', '崦', '菸', '湮', '腌', '鄢', '嫣', '讠', '闫'{, '妍'}, '芫',
'筵', '檐', '兖', '俨', '偃', '厣', '郾', '琰', '罨', '魇', '鼹', '晏', '焱',
'滟', '酽', '谳', '餍', '赝', '泱', '鞅', '炀', '徉', '烊', '蛘', '怏', '恙',
'幺', '夭', '吆', '爻', '肴', '轺', '珧', '徭', '繇', '鳐', '杳', '窈', '崾',
'鹞', '曜', '揶', '铘', '邺', '晔', '烨', '谒', '靥', '衤', '咿', '猗', '欹',
'漪', '噫', '黟', '圯', '诒'{, '怡'}, '迤', '饴', '咦', '荑', '贻', '眙', '酏',
'痍', '嶷', '钇', '苡', '舣', '旖', '弋', '刈', '仡', '佚', '呓', '佾', '峄',
'怿', '驿', '奕', '弈', '羿', '轶', '悒', '挹', '埸', '翊', '缢', '瘗', '蜴',
'熠', '镒', '劓', '殪', '薏'{, '翳'}, '癔', '镱', '懿', '洇', '氤', '铟', '喑',
'堙', '垠', '狺', '鄞', '夤'{, '龈'}, '霪'{, '吲'}, '蚓', '瘾', '茚', '胤', '莺',
'瑛', '嘤', '撄', '罂', '璎', '鹦', '膺', '茔', '荥', '萦', '楹', '滢', '蓥',
'潆', '嬴', '瀛', '郢', '颍', '瘿', '媵', '唷', '邕', '墉', '慵', '壅', '镛',
'鳙', '狳', '谀', '馀', '萸', '雩', '嵛', '揄', '腴', '瑜', '觎', '疋', '饔',
'喁', '甬', '俑', '攸', '呦', '柚', '疣', '莜', '莸', '蚰', '鱿', '猷', '蝣',
'卣', '莠', '铕', '牖', '黝', '侑', '囿', '宥', '蚴', '鼬', '纡', '妤', '欤',
'於', '臾', '禺', '竽', '舁', '窬', '蝓', '伛', '俣', '圄', '圉', '庾', '瘐',
'窳', '龉', '聿', '妪', '饫', '昱', '钰', '谕', '阈', '鹆', '煜', '蓣', '毓',
'蜮', '燠', '鹬', '鬻', '鸢', '眢', '箢', '沅', '爰', '鼋', '塬'{, '橼'}, '螈',
'垸', '媛', '掾', '瑗', '刖', '钺', '樾', '龠', '瀹', '纭', '芸', '昀', '氲',
'狁', '殒', '郓', '恽', '愠', '韫', '熨':
Result := 'y';
'辶', '浞', '诼', '禚', '擢', '濯', '镯', '赀', '缁', '谘', '孳', '嵫', '粢',
'辎', '觜'{, '觜'}, '趑', '锱', '龇', '髭', '鲻', '姊', '秭', '耔', '笫', '梓',
'訾', '恣', '眦', '偬', '粽', '驺', '诹', '陬', '鄹', '鲰', '酢'{, '喋'}, '阝',
'咂', '拶'{, '甾'}, '崽', '糌', '簪', '昝', '趱', '錾', '瓒', '臧', '驵', '奘',
'唣', '迮', '啧', '帻', '笮', '舴', '箦', '赜', '仄', '昃', '谮', '缯', '罾',
'锃', '甑', '吒', '哳', '揸'{, '楂'}, '齄', '砟', '咤', '痄', '蚱', '砦', '瘵',
'旃', '谵', '搌', '鄣', '嫜', '獐', '璋'{, '蟑'}, '仉', '嶂', '幛', '钊', '啁',
'诏', '笊', '棹', '蜇', '辄', '谪', '摺', '磔'{, '赭'}, '褶', '柘', '鹧', '浈',
'桢', '祯', '蓁', '榛', '箴', '胗', '轸', '畛', '缜', '稹', '圳', '鸩', '朕',
'赈', '峥', '钲', '铮', '筝', '徵', '诤', '卮'{, '栀'}, '祗', '胝', '埴', '絷'{,
'跖'}, '摭', '踯', '芷', '祉', '咫', '枳', '轵', '黹'{, '酯'}, '忮', '豸', '帙',
'郅', '栉', '陟', '桎', '贽', '轾', '鸷', '彘', '痣', '蛭', '骘', '雉', '膣',
'觯', '踬', '舯', '锺', '螽', '冢', '踵', '妯', '碡', '纣', '绉', '胄', '荮',
'酎', '籀', '侏', '邾', '洙', '茱', '铢', '槠', '潴', '橥'{, '竺'}, '舳', '瘃',
'躅', '渚', '麈', '伫', '苎', '杼', '炷', '疰', '箸', '翥', '颛', '啭', '馔',
'丬', '隹', '骓', '惴', '缒', '肫', '窀', '倬', '涿', '斫', '菹', '镞', '俎',
'躜', '缵', '攥', '蕞', '樽', '鳟', '撙', '阼', '怍', '祚', '胙'{, '唑'}:
Result := 'z';
end;
end;
Function Getpinyin_shoupinma(hzchar: Ansistring): ansichar; //获得常用字首拼码
var
i: Integer;
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 := GetPinyin_shoupinma2(hzchar);
end;
end;
Function HZToPY(cSTR:String):String;
Var
i:integer;
S:String;
begin
Result:='';
for I := 1 to Length(cSTR) do
begin
S:=Copy(cSTR,i,1);
if Trim(Getpinyin_shoupinma(S))='' then
Result:=Result+S
else
Result:=Result+Getpinyin_shoupinma(S);
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Edit2.Text:=HZToPY(Edit1.Text);
end;
end.
如："你是" 转为NS
"你a1是" 转为Na1S
