paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 08:38:19 +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

6
components/lazutils/lazutf8.pas
View File

@ -4025,15 +4025,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.