delphi 风速转换风级

function GetFengji(fengsu: Double): String;
begin
  if fengsu <= 0.2 then
    Result := '0'
  else if fengsu <= 1.5 then
    Result := '1'
  else if fengsu <= 3.3 then
    Result := '2'
  else if fengsu <= 5.4 then
    Result := '3'
  else if fengsu <= 7.9 then
    Result := '4'
  else if fengsu <= 10.7 then
    Result := '5'
  else if fengsu <= 13.8 then
    Result := '6'
  else if fengsu <= 17.1 then
    Result := '7'
  else if fengsu <= 20.7 then
    Result := '8'
  else if fengsu <= 24.4 then
    Result := '9'
  else if fengsu <= 28.4 then
    Result := '10'
  else if fengsu <= 32.6 then
    Result := '11'
  else
    Result := '0';
end;