refactor: Simplify rounding function.

Author: corneliusdavid

entries/dcornelius/src/uChallengeCommon.pas

@@ -33,7 +33,7 @@   TChallengeCommon = class
   public
     constructor Create(const NewInputFilename: string);
     procedure ReadAndParseAllData(WeatherCityProcessor: TWeatherCityProc);
-    function PascalRound(x: Double): Double;
+    function PascalRound(const x: Double): Double;
     function SplitCityTemp(const StationLine: string; var CityName: string; var CityTemp: Integer): Boolean;
     property InputFilename: string read FInputFilename write FInputFilename;
   end;
@@ -62,18 +62,9 @@ constructor TChallengeCommon.Create(const NewInputFilename: string);
     raise EFileNotFoundException.Create(NewInputFilename + ' not found.');
 end;
 
-function TChallengeCommon.PascalRound(x: Double): Double;
-var
-  t: Double;
+function TChallengeCommon.PascalRound(const x: Double): Double;
 begin
-  // round towards positive infinity
-  t := Trunc(x);
-  if (x < 0.0) and (t - x = 0.5) then
-    Result := t
-  else if Abs(x - t) >= 0.5 then
-    Result := t + Sign(x)
-  else
-    Result := x;
+  Result := Ceil(x * 10) / 10;
 end;
 
 procedure TChallengeCommon.ReadAndParseAllData(WeatherCityProcessor: TWeatherCityProc);