这段代码怎么优化
Dlwxn 2003-09-29 12:40:57 var
A,B,C:Boolean;
Begin
if A and B and C then 语句1
else if A and (not B) and (not C) then 语句2
else if (not A) and B and (not C) then 语句3
else if (not A) and (not B) and C then 语句4
else if A and B and (not C) then 语句5
else if A and (not B) and C then 语句6
else if (not A) and B and C then 语句7
else then 语句8
End
看到这段代码我就烦,有没有好的方法?