From 134d9f3331bfedd426f4c77b6961d9fb5f384ee0 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sun, 6 Apr 2025 20:33:41 +0200 Subject: [PATCH] Issue #2132: fix crash when saving an sql file previously loaded with auto-detected encoding --- source/apphelpers.pas | 3 +++ 1 file changed, 3 insertions(+) diff --git a/source/apphelpers.pas b/source/apphelpers.pas index e6ca6687..4b9d1345 100644 --- a/source/apphelpers.pas +++ b/source/apphelpers.pas @@ -1215,6 +1215,9 @@ procedure SaveUnicodeFile(Filename: String; Text: String; Encoding: TEncoding); var Writer: TStreamWriter; begin + // Encoding may be nil when previously loaded via auto-detection + if not Assigned(Encoding) then + Encoding := UTF8NoBOMEncoding; Writer := TStreamWriter.Create(Filename, False, Encoding); Writer.Write(Text); Writer.Free;