Delphi 汉字转拼音

//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';
    '嚓', '礤', '骖', '黪', '粲', '璨', '伧', '嘈', '漕', '艚', '螬', '艹', '恻',
    '岑', '涔', '噌', '杈', '馇', '锸', '猹', '槎', '檫', '衩', '镲', '汊', '姹',
    '钗', '侪', '虿', '瘥', '觇', '婵', '孱', '禅', '廛', '潺', '镡', '蟾', '躔',
    '谄', '蒇', '冁', '忏', '羼', '伥', '娼', '菖', '阊', '鲳', '苌', '徜', '嫦',
    '昶', '惝', '氅', '怅', '鬯',