mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Optimization

Browse source 
(cherry picked from commit 9cececd39b)
This commit is contained in:
Alexander Koblov 2021-10-23 21:20:59 +03:00
commit 8d1ad60597
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/fsyncdirsdlg.pas
View file

@ -1382,8 +1382,11 @@ procedure TfrmSyncDirsDlg.SortFoundItems(sl: TStringList);
var
r1, r2: TFileSyncRec;
begin
r1 := TFileSyncRec(sl.Objects[i]);
r2 := TFileSyncRec(sl.Objects[j]);
if FSortIndex in [1..5] then
begin
r1 := TFileSyncRec(sl.Objects[i]);
r2 := TFileSyncRec(sl.Objects[j]);
end;
case FSortIndex of
0:
Result := UTF8CompareStr(sl[i], sl[j]);