From 7e25a22a71b43d10bfa7bb694236985792cf1cf3 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Thu, 23 May 2013 20:49:19 -0400 Subject: [PATCH] Ignore case when sorting file bases in UNIX --- mystic/mbbsutil.pas | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/mystic/mbbsutil.pas b/mystic/mbbsutil.pas index 0964954..93bae32 100644 --- a/mystic/mbbsutil.pas +++ b/mystic/mbbsutil.pas @@ -168,11 +168,7 @@ Begin While Not Eof(FDirFile) Do Begin Read (FDirFile, FDir); If (FDir.Flags AND FDirDeleted = 0) Then - {$IFDEF FS_SENSITIVE} - SortList.Add(FDir.FileName, FilePos(FDirFile) - 1); - {$ELSE} - SortList.Add(strUpper(FDir.FileName), FilePos(FDirFile) - 1); - {$ENDIF} + SortList.Add(strUpper(FDir.FileName), FilePos(FDirFile) - 1); End; SortList.Sort(1, SortList.Total, qAscending);