kenail

不是你的case有问题，是variable tmp :integer;　这条语句有问题，ｉｎｔｅｇｅｒ　数据超过了３２位，所以ｃａｓｅ不再支持了，你可以改成variable tmp :integer range 0 to 15 ;