Delphi 汉字转拼音,技持多个汉字一起转

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