求助下"在Edit1中输入汉字的同时在Edit2中显示每个汉字的声母字符"

Question

可以编译,但没能实现功能?
unit PY;interface
uses sysutils;// 获取汉字的拼音首字符,这个函数将用在GetPYIndexStr 中.
function GetPYIndexChar(strChinese: string; bUpCase: Boolean = True): char;// 获取多个汉字的拼音首字符组成的字符串.
function GetPYIndexStr(strChinese: string; bUpCase: Boolean = True): string;implementation////////////////////////////////////////////////////////////////////////////
// 函数: GetPYIndexChar(strChinese: string;bUpCase: Boolean = True): char;
//
// 函数功能:获取汉字的拼音首字符.
// 例: GetPYIndexChar('程') 将返回'C'.
//
// 注意:对于多于一个汉字的输入(string类型)只有第一个有效,但不会产生错误
// 例如,GetPYIndexChar('程序')也将返回'C'.
//
// 第二个参数决定返回大写还是小写 , 缺省为大写 .
////////////////////////////////////////////////////////////////////////////
function GetPYIndexChar(strChinese: string;bUpCase: Boolean = True): char;
begin
// 根据汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围，
// 要检索的汉字只需要检查它的内码位于哪一个首字符的范围内，
// 就可以判断出它的拼音首字符。
 case WORD(strChinese[1]) shl 8 + WORD(strChinese[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 := char(0);
 end;
 if not bUpCase then
 begin // 转换为小写
   result := Chr(Ord(result)+32);
 end;
end;////////////////////////////////////////////////////////////////////////////
// 函数: GetPYIndexStr(strChinese: string;bUpCase: Boolean = True): string;
//
// 函数功能:获取多个汉字的拼音首字符组成的字符串.
// 例: GetPYIndexStr('程') 将返回'C'.
//     GetPYIndexStr('程序')将返回'CX'.
//
// 第二个参数决定返回大写还是小写 , 缺省为大写 .
////////////////////////////////////////////////////////////////////////////
function GetPYIndexStr(strChinese: string;bUpCase: Boolean = True): string;
var
 strChineseTemp : string;
 cTemp : Char;
begin
 result := '';
 strChineseTemp := strChinese;
 while strChineseTemp<>'' do
 begin
   cTemp := GetPYIndexChar(strChineseTemp);
   if not bUpCase then
   begin // 转换为小写
     cTemp := Chr(Ord(cTemp)+32);
   end;
   result := result + string(cTemp);
   strChineseTemp := Copy(strChineseTemp,3,Length(strChineseTemp));
 end;
end;
end.procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit2.Text := GetPYIndexStr('Edit1.Text');
end;

Answer 1

Edit2.Text := GetPYIndexStr('Edit1.Text');
这句错误了,Edit2.Text := GetPYIndexStr(Edit1.Text);

Answer 2

这个错误太不应该了取edit1.text怎么打上引号了呢
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit2.Text := GetPYIndexStr(Edit1.Text);
end;

Answer 3

谢谢楼上几位,改好了,我是在Delphi2009里面编译的,能编译,但没能实现功能?奇怪?

Answer 4

楼主该打PP
Edit2.Text := GetPYIndexStr(Edit1.Text);

Answer 5

如果是delphi2009下编译，只需把string改成Ansistring，就ok了。uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;    // 获取多个汉字的拼音首字符组成的字符串.
    function GetPYIndexStr(strChinese: AnsiString; bUpCase: Boolean = True): string;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);  private
    function GetPYIndexChar(strChinese: AnsiString; bUpCase: Boolean): char;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
////////////////////////////////////////////////////////////////////////////
// 函数: GetPYIndexChar(strChinese: string;bUpCase: Boolean = True): char;
//
// 函数功能:获取汉字的拼音首字符.
// 例: GetPYIndexChar('程') 将返回'C'.
//
// 注意:对于多于一个汉字的输入(string类型)只有第一个有效,但不会产生错误
// 例如,GetPYIndexChar('程序')也将返回'C'.
//
// 第二个参数决定返回大写还是小写 , 缺省为大写 .
////////////////////////////////////////////////////////////////////////////
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  ss:AnsiString;
begin
  if Key=#13 then
  begin
    ss:=Edit1.Text;
    Edit2.Text := GetPYIndexStr(ss,true);
  end;
end;function TForm1.GetPYIndexChar(strChinese: AnsiString;bUpCase: Boolean): char;
begin
// 根据汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围，
// 要检索的汉字只需要检查它的内码位于哪一个首字符的范围内，
// 就可以判断出它的拼音首字符。
 case WORD(strChinese[1]) shl 8 + WORD(strChinese[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 := char(0);
 end;
 if not bUpCase then
 begin // 转换为小写
   result := Chr(Ord(result)+32);
 end;
end;////////////////////////////////////////////////////////////////////////////
// 函数: GetPYIndexStr(strChinese: string;bUpCase: Boolean = True): string;
//
// 函数功能:获取多个汉字的拼音首字符组成的字符串.
// 例: GetPYIndexStr('程') 将返回'C'.
//     GetPYIndexStr('程序')将返回'CX'.
//
// 第二个参数决定返回大写还是小写 , 缺省为大写 .
////////////////////////////////////////////////////////////////////////////
function TForm1.GetPYIndexStr(strChinese: AnsiString;bUpCase: Boolean = True): string;
var
 strChineseTemp : AnsiString;
 cTemp : Char;
begin
   result := '';
   strChineseTemp := strChinese;
   while strChineseTemp<>'' do
   begin
     cTemp := GetPYIndexChar(strChineseTemp,True);
     if not bUpCase then
     begin // 转换为小写
       cTemp := Chr(Ord(cTemp)+32);
     end;
     result := result + string(cTemp);
     strChineseTemp := Copy(strChineseTemp,3,Length(strChineseTemp));
   end;
end;
end.