fix: crash in SQL export to database for zero length SQL, plus upgrade old-style string handling

ansgarbecker · ansgarbecker · commit 056b5e906637 · 2026-03-13T14:59:39.000+01:00
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -713,10 +713,13 @@ function EncodeURLParam(const Value: String): String;
 }
 procedure StreamWrite(S: TStream; Text: String = '');
 var
-  utf8: AnsiString;
+  utf8: UTF8String;
+  L: Integer;
 begin
   utf8 := Utf8Encode(Text);
-  S.Write(utf8[1], Length(utf8));
+  L := Length(utf8);
+  if L > 0 then
+    S.WriteBuffer(utf8[1], L);
 end;
 
 
