pascal的case of不支持字符串类型,只有用
if xxx='aa' thenelse if xxx='bb' then
.......