case问题

Question

function ytlxy2(x1:extended):extended;
begin
case x1 of
0.00004<=x1<0.0004:  result:=0.0001;
0.0004<=x1<0.004:    result:=0.001;
0.004<=x1<0.04:      result:=0.01;
0.04<=x1<0.4:        result:=0.1;
0.4<=x1:             result:=1;
end;
end;
报错，改为0.00004..0.0004:则区分不开<=和<。问？

Answer 1

改为if语句吧，case不能用实数，只能是顺序型的，如：整数，单个字符（其ASC码有序），枚举。