case Word(ChinaStr[1]) shl 8+Word(ChinaStr[2]) of
    $B0A1..$B0C4:result:='a';
    $B0C5..$B2C0:result:='b';
  else
  result:=char(0);

解决方案 »

  1.   

    case Word(ChinaStr[1]) shl 8+Word(ChinaStr[2]) of
        $B0A1..$B0C4:result:='a';
        $B0C5..$B2C0:result:='b';
      else
      result:=char(0);
    下面加上end;
    你漏掉了阿,标准语法是:
      case  of
        : ;
        : ;
      else ;
      end;
      

  2.   

    case of
      begin
        你上面的代码
      end
    else
      result:=char(10);
    end;
      

  3.   

    case Word(ChinaStr[1]) shl 8+Word(ChinaStr[2]) of
        $B0A1..$B0C4:result:='a';
        $B0C5..$B2C0:result:='b';
      else
      result:=char(0);
    end;
    还有,实在不行,你可以用断点调试,找到出错的语句后把语句重写,有可能是输入了非法字符。