From 9c6333cdc4b14205f0098058597835c6fa673ca3 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Fri, 9 Feb 2024 10:32:41 +0200
Subject: [PATCH] LazUtils: Remove WriteLn() from
 TStringListUTF8Fast.InsertItem. Causes trouble on Windows.

(cherry picked from commit 2c81dff5d9d1b945cc15bb7420e343420e89ce63)
---
 components/lazutils/lazutf8.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/lazutils/lazutf8.pas b/components/lazutils/lazutf8.pas
index bb7262ac9c..c999dfa8eb 100644
--- a/components/lazutils/lazutf8.pas
+++ b/components/lazutils/lazutf8.pas
@@ -4015,15 +4015,15 @@ end;
 constructor TStringListUTF8Fast.Create;
 begin
   inherited Create;
-  UseLocale := False;      // Assume pure ASCII string. Comparison will be fast.
+  UseLocale := False;      // Assume pure ASCII. Comparison will be fast.
 end;
 
 procedure TStringListUTF8Fast.InsertItem(Index: Integer; const S: string; O: TObject);
 begin
   if not IsPureAscii(S) then
   begin
-    // Unicode string found, switch to Unicode mode.
-    WriteLn('TStringListUTF8Fast.InsertItem: Found non-ASCII string "'+S+'"');
+    // Non-ASCII string found, switch to Unicode mode.
+    //WriteLn('TStringListUTF8Fast.InsertItem: Found non-ASCII string "'+S+'"');
     UseLocale := True;
     if Sorted then
       Sort;    // Sort a sorted list again with AnsiCompare.. functions.