paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 01:08:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Remove WriteLn() from TStringListUTF8Fast.InsertItem. Causes trouble on Windows.

Browse Source 
(cherry picked from commit 2c81dff5d9)
This commit is contained in:
Juha 2024-02-09 10:32:41 +02:00 committed by mattias
parent 3887be2510
commit 9c6333cdc4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/lazutf8.pas
View File

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