Issue #2132: fix crash when saving an sql file previously loaded with auto-detected encoding

This commit is contained in:
Ansgar Becker
2025-04-06 20:33:41 +02:00
parent e6ea5fb1d2
commit 134d9f3331

View File

@ -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;