Change code page for legacy database files to 1252

Pre-Unicode Code Snippet Database files were written using the
default code page in the UK: 1252. Such legacy file were being read
back using the system default code page, which outside the UK may
not be 1252.

Fixes #35

Author: delphidabbler

Src/UMainDBFileReader.pas

@@ -30,6 +30,10 @@ interface
   ///  </remarks>
   TMainDBFileReader = class(TObject)
   strict private
+    const
+      ///  <summary>ANSI code page used for v4 and earlier database files.
+      ///  </summary>
+      LegacyCodePage = TEncodingHelper.Windows1252CodePage;
     var
       ///  <summary>Encoding to use when reading text files.</summary>
       fEncoding: TEncoding;
@@ -129,7 +133,7 @@ function TMainDBFileReader.GetFileEncoding(const FileName: string): TEncoding;
   finally
     FS.Free;
   end;
-  Result := TEncoding.Default;
+  Result := TEncodingHelper.GetEncoding(LegacyCodePage);
 end;
 
 function TMainDBFileReader.ReadAllStrings(const FileName: string): IStringList;