paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Juha 2024-02-09 10:32:41 +02:00
parent 1b863d612c
commit 2c81dff5d9
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

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