关于IF语句

Question

var
 s:double;
begin
 s:=(DataModule2.Twoli.Fields[5].Value)/(DataModule2.Twoli.Fields[6].Value)*100;
if (DataModule2.Twoli.Fields[2].Value:='男') then
 begin
   if(s>=75) then
   begin
   DataModule2.Twoli.Fields[7].Value:=20;
   end;
   if((s>=70)and(s<=74) )then
   begin
   DataModule2.Twoli.Fields[7].Value:=17;
   end;
   if((s>=63)and(s<=69) ) then
   begin
   DataModule2.Twoli.Fields[7].Value:=16;
   end;
   if((s>=56)and(s<=62) ) then
   begin
   DataModule2.Twoli.Fields[7].Value:=15;
   end;
   if((s>=51)and(s<=55) ) then
   begin
   DataModule2.Twoli.Fields[7].Value:=13;
   end;
   if((s>=41)and(s<=50) )then
   begin
   DataModule2.Twoli.Fields[7].Value:=12;
   end;
   if(s<=40) then
   begin
   DataModule2.Twoli.Fields[7].Value:=10;
   end;
 end;运行总是提示type of expression must be BOOLEAN
为什么啊?

Answer 1

if (DataModule2.Twoli.Fields[2].Value:='男') then改为：if (DataModule2.Twoli.Fields[2].Value='男') then

Answer 2

另外,条件处理似乎没有交集,如果可以,每执行完一个条件直接调用Exit退出函数也许更好一点

Answer 3

同意二楼的。用CASE语句好些。