fix: crash in OpenTextFile, for a 0-bytes file - override the encoding to one without BOM

ansgarbecker · ansgarbecker · commit 27e26a68153f · 2026-02-07T13:43:14.000+01:00
Closes #1448
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -1340,6 +1340,9 @@ procedure OpenTextFile(const Filename: String; out Stream: TFileStream; var Enco
   Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyNone);
   if Encoding = nil then
     Encoding := DetectEncoding(Stream);
+  // For a 0-bytes file, override the encoding to one without BOM
+  if _GetFileSize(Filename) < Length(Encoding.GetPreamble) then
+    Encoding := UTF8NoBOMEncoding;
   // If the file contains a BOM, advance the stream's position
   BomLen := 0;
   if Length(Encoding.GetPreamble) > 0 then begin
