paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-09 01:51:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #34303, readability opimizations

Browse Source 
git-svn-id: trunk@43714 -
This commit is contained in:
michael 2019-12-23 13:15:19 +00:00
parent 5edf438489
commit abeb00cd94
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/stringl.inc
View File

@ -1765,7 +1765,7 @@ end;
function TStringList.Add(const S: string): Integer;
begin
If Not (SortStyle=sslAuto) then
If (SortStyle<>sslAuto) then
Result:=FCount
else
If Find (S,Result) then
@ -1953,7 +1953,7 @@ procedure TStringList.CustomSort(CompareFn: TStringListSortCompare; SortingAlgor
var
Context: TStringList_CustomSort_Context;
begin
If (FForceSort or (Not (FSortStyle=sslAuto))) and (FCount>1) then
If (FCount>1) and (FForceSort or (FSortStyle<>sslAuto)) then
begin
Changing;