下面代码如何简化比较合理

Question

               if zl=1 then
               result:=result;
               if zl=4 then
               result:=result;
               if zl=2 then
               result:=-result;
               if zl=3 then
               result:=-result;
               if zl=5 then
               result:=-result;          if zl=1 or 4 then
          result:=result
          else
          result:=-result
        或者          if zl=(1 or 4) then
          result:=result
          else
          result:=-result计算结果都有问题,看看哪错了

Answer 1

if zl in [1,4,....] then
  Result := result
else if zl in [2,3,.....] then
  Result := -Result;

Answer 2

如果 zl 是byte 类型可以1如果是其他类型
if (zl=1) or (zl=4) or (...) then
  result := result
else if (zl=2) or(zl=3) or (zl=5) then
  result := -1* result;

Answer 3

if(zl in[2, 3, 5])then
  Result := -Result;Result:=Result 是不会产生任何代码的废话