eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ignore case when sorting file bases in UNIX

This commit is contained in:
mysticbbs 2013-05-23 20:49:19 -04:00
parent 152cf69383
commit 7e25a22a71
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/mbbsutil.pas
View File

@ -168,11 +168,7 @@ Begin
While Not Eof(FDirFile) Do Begin While Not Eof(FDirFile) Do Begin
Read (FDirFile, FDir); Read (FDirFile, FDir);
If (FDir.Flags AND FDirDeleted = 0) Then 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); SortList.Add(strUpper(FDir.FileName), FilePos(FDirFile) - 1);
{$ENDIF}
End; End;
SortList.Sort(1, SortList.Total, qAscending); SortList.Sort(1, SortList.Total, qAscending);