Update - Minor edits on comments and debug statements.

Author: ikelaiah

entries/ikelaiah/README.md

@@ -123,13 +123,13 @@ Iwan Kelaiah
   * Introduced a pointer to the weather record, `PStat = ^TStat`. This saves approx. 30 - 60 seconds.
 
 * 1.7
-  * Revision release - Sequential approach. 4-6 mins on my Inspiron 15 7510 laptop (a little improvement on speed).
+  * Revision release - Sequential approach. 4-6 mins on my Inspiron 15 7510 laptop, around 4m50s (a little improvement on speed).
   * Converting Float as String to Int was a bit slow, so resorted to a lookup instead. This saves 30-45 seconds.
-  * Re-arranged `if` statements in two places. This saves 10-15 seconds x 2 = ~ 30 seconds saving.
+  * Re-arranged `if` statements in two places. This saves 10-15 seconds x 2 = ~ 30 seconds.
 
 * 1.8
-  * Revision release - Sequential approach. 4-6 mins on my Inspiron 15 7510 laptop (a little improvement on speed).
-  * Removed double lookup on dictionaries.
+  * Revision release - Sequential approach. 3-5 mins on my Inspiron 15 7510 laptop, around 3m50s (a little improvement on speed).
+  * Removed double lookup on dictionaries; removed `.Contains` and used `TryGetValue` instead. This saves approx 60 seconds.
 
 ## License
 

entries/ikelaiah/src/weatherstation.pas

@@ -391,17 +391,17 @@ procedure TWeatherStation.ReadMeasurementsBuf;
           Ref: https://www.freepascal.org/docs-html/rtl/classes/tstream.seek.html}
         if lineBreakPos < bytesRead then
           fileStream.Seek(-(bytesRead - lineBreakPos), soCurrent);
-        //{$IFDEF DEBUG}
+        {$IFDEF DEBUG}
         // Do something with the chunk here
         // Like counting line
         for index := 0 to lineBreakPos - 1 do
           if buffer[index] = Ord(#10) then
             lineCount := lineCount + 1;
-        //{$ENDIF DEBUG}
+        {$ENDIF DEBUG}
 
         // Use memory stream & stream reader
         memStream.Write(buffer[0], lineBreakPos - 1);
-        memStream.Position:=0;
+        memStream.Position := 0;
         streamReader := TStreamReader.Create(memStream);
         try
           while not streamReader.EOF do
@@ -412,16 +412,16 @@ procedure TWeatherStation.ReadMeasurementsBuf;
         finally
           streamReader.Free;
         end;
-        //{$IFDEF DEBUG}
+        {$IFDEF DEBUG}
         // Display user feedback
         WriteLn('Line count: ', IntToStr(lineCount));
         WriteLn('Chunk ', chunkIndex, ', Total bytes read:', IntToStr(totalBytesRead));
-        //{$ENDIF DEBUG}
+        {$ENDIF DEBUG}
 
-        //{$IFDEF DEBUG}
+        {$IFDEF DEBUG}
         // Increase chunk index - a counter
         Inc(chunkIndex);
-        //{$ENDIF DEBUG}
+        {$ENDIF DEBUG}
       end;
     finally
       memStream.Free;