diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2011-08-05 18:27:27 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2011-08-05 18:27:27 +0200 |
| commit | b2e39fd6de0767f35d4f9be34094706fd51d9513 (patch) | |
| tree | 9bf0e5a3d7feb3cb9480df0915777d7c4e5a035d | |
| parent | 734059c6f8954379aeafbde3e65ea593c7a94ff7 (diff) | |
| download | tuxcmd-b2e39fd6de0767f35d4f9be34094706fd51d9513.tar.xz | |
Fix more occurrences of Inc()
| -rw-r--r-- | UMain.pas | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2014,11 +2014,11 @@ begin for i := 0 to DataList.Count - 1 do begin Data := DataList[i]; if (not Data^.UpDir) and ((not Data^.IsDir) or (Data^.IsDir and (Data^.Size > 0))) then begin - Inc(TotalSize, Data^.Size); + TotalSize := TotalSize + Data^.Size; if not Data^.IsDir then Inc(TotalFiles); if Data^.Selected then begin if not Data^.IsDir then Inc(NumSel); - Inc(Size, Data^.Size); + Size := Size + Data^.Size; end; end; end; |
