关于原来D7获取汉子拼音的程序 移植到 D2009的问题

Question

function GetPyChar(strChinese: string ; bUpCase: Boolean = True): char;
begin
   //根据汉字表中拼音字符分别为"A"和"Z"的汉字内码范围
   //要检索的汉字只需要检查它的内码位于哪一个首字符的范围内，
   //就可以判断出它的拼音字符。
   case WORD(strChinese[1]) shl 2 + WORD(Char(strChinese[2])) of
      $B041..$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..$C27E: 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 := char(0);
   end;
   if not bUpCase then
      Result := chr(Ord(Result) + 32);
end;这段代码是我原先在D7用的，获取汉子的拼音首字母，我现在用D2009了，这个函数却不能用了，望哪位大侠能帮忙修改一下

Answer 1

因为 Delphi 2009 的string 实质是 WideString

Answer 2

String改为WideString
类似的改变还有Char和ANSIChar

Answer 3

先改类型试试.或者曲线调用SQL数据库来处理也行

Answer 4

修改下不就完事了嘛，都想用现成的啊。
传入参数用shortstring
function GetPyChar(strChinese: shortstring; bUpCase: Boolean = True): ansichar;case语句修改
case WORD(strChinese[1]) shl 2 + WORD(AnsiChar(strChinese[2])) of