FIX: Case-insensitive sorting

This commit is contained in:
Alexander Koblov 2023-05-25 19:09:56 +03:00
commit 48865cfec4

View file

@ -1120,6 +1120,9 @@ begin
NextChunkInit(Chunk1);
NextChunkInit(Chunk2);
if (Chunk1.Category = cNone) and (Chunk2.Category = cNone) then
Exit;
if Chunk1.Category <> Chunk2.Category then
if Chunk1.Category < Chunk2.Category then
Exit(-1)