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;
case of begin 你上面的代码 end else result:=char(10); end;
case Word(ChinaStr[1]) shl 8+Word(ChinaStr[2]) of $B0A1..$B0C4:result:='a'; $B0C5..$B2C0:result:='b'; else result:=char(0); end; 还有,实在不行,你可以用断点调试,找到出错的语句后把语句重写,有可能是输入了非法字符。
$B0A1..$B0C4:result:='a';
$B0C5..$B2C0:result:='b';
else
result:=char(0);
下面加上end;
你漏掉了阿,标准语法是:
case of
: ;
: ;
else ;
end;
begin
你上面的代码
end
else
result:=char(10);
end;
$B0A1..$B0C4:result:='a';
$B0C5..$B2C0:result:='b';
else
result:=char(0);
end;
还有,实在不行,你可以用断点调试,找到出错的语句后把语句重写,有可能是输入了非法字符。