Delphi中取得汉字的首字母

function Tdm.GetHzPy( const  AHzStr:  string ):  string ;

const

  ChinaCode: array[

0 .. 25 ,  0 .. 1 ] of Integer  =  (( 1601 ,  1636 ), ( 1637 ,  1832 ), ( 1833 ,  2077 ),

  (

2078 ,  2273 ), ( 2274 ,  2301 ), ( 2302 ,  2432 ), ( 2433 ,  2593 ), ( 2594 ,  2786 ), ( 9999 ,  0000 ),

  (

2787 ,  3105 ), ( 3106 ,  3211 ), ( 3212 ,  3471 ), ( 3472 ,  3634 ), ( 3635 ,  3722 ), ( 3723 ,  3729 ),

  (

3730 ,  3857 ), ( 3858 ,  4026 ), ( 4027 ,  4085 ), ( 4086 ,  4389 ), ( 4390 ,  4557 ), ( 9999 ,  0000 ),

  (

9999 ,  0000 ), ( 4558 ,  4683 ), ( 4684 ,  4924 ), ( 4925 ,  5248 ), ( 5249 ,  5589 ));

var

    i, j, HzOrd: integer;

//     Hz: string[2];

begin

    i :

=   1 ;

    

while  i  <=  Length(AHzStr)  do

    begin

        

if  (AHzStr[i]  >=  # 160 ) and (AHzStr[i  +   1 ]  >=  # 160 ) then

        begin

            HzOrd :

=  (Ord(AHzStr[i])  -   160 )  *   100   +  Ord(AHzStr[i  +   1 ])  -   160 ;

            

for  j : =   0  to  25   do

            begin

                

if  (HzOrd  >=  ChinaCode[j][ 0 ]) and (HzOrd  <=  ChinaCode[j][ 1 ]) then

                begin

                    Result :

=  Result  +   char ( byte ( ' A ' )  +  j);

                    

break ;

                end;

            end;

            Inc(i);

        end 

else  Result : =  Result  +  AHzStr[i];

        Inc(i);

    end;

end;

很久前的代码,忘记了来源,很好用