得到拼音码的函数

unit upubil;



interface

function getpyindexchar(const hzchar:string):string;

function getpym(const hzchar:string):string;



implementation

function getpym(const hzchar:string):string;

var
  icount   : integer;
  spym     : string;

begin
  icount:=1;
  while  icount<=length(hzchar)  do
  begin
    if getpyindexchar(copy(hzchar,icount,2))='' then
    begin
      spym:=spym+copy(hzchar,icount,1);
      icount:=icount+1;
    end
    else
    begin
      spym:=spym+getpyindexchar(copy(hzchar,icount,2));
      icount:=icount+2;
    end;
  end;
  result := spym;

end;



function getpyindexchar(const hzchar:string):string;

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..$d1b8 : result := 'x';
    $d1b9..$d4d0 : result := 'y';
    $d4d1..$d7f9 : result := 'z';
  else
    result :=''; //hzchar;//char(0);
  end;

end;

end.