您所在位置：主题：谁能解释下这段代码？帮帮忙，我不会忘记给分的
xiaotian9
[专家分：60] 发布于 2007-10-09 12:56:00
function tf_zct.getpy(hzchar:string):char;
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..$D188:RESULT:='X';
$D1B9..$D4D0:RESULT:='Y';
$D4D1..$D7F9:RESULT:='Z';
else result:=char(32);
end;
谢谢啊
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..$D188:RESULT:='X';
$D1B9..$D4D0:RESULT:='Y';
$D4D1..$D7F9:RESULT:='Z';
else result:=char(32);
end;
谢谢啊
