对于字符串得判断可以用CASE吗？

Question

当然可以了，可以将字符串转换为有序类型，因为Case语句要求必须是有序类型！

Answer 1

case Pos(',' + Func_code + ',', 
  ',SA0100,SA0200,SA0300,SA0400,SA0500,') of
// 0000000001111111111222222222233333333334
// 1234567890123456789012345678901234567890
  01: WRYMain.USA0100FrmShow;
  08: WRYMain.USA0200FrmShow;
  15: WRYMain.USA0300FrmShow;
  22: WRYMain.USA0400FrmShow;
end;