summaryrefslogtreecommitdiff
path: root/UMain.pas
diff options
context:
space:
mode:
authorTomas Bzatek <tbzatek@users.sourceforge.net>2011-08-05 18:27:27 +0200
committerTomas Bzatek <tbzatek@users.sourceforge.net>2011-08-05 18:27:27 +0200
commitb2e39fd6de0767f35d4f9be34094706fd51d9513 (patch)
tree9bf0e5a3d7feb3cb9480df0915777d7c4e5a035d /UMain.pas
parent734059c6f8954379aeafbde3e65ea593c7a94ff7 (diff)
downloadtuxcmd-b2e39fd6de0767f35d4f9be34094706fd51d9513.tar.xz
Fix more occurrences of Inc()
Diffstat (limited to 'UMain.pas')
-rw-r--r--UMain.pas4
1 files changed, 2 insertions, 2 deletions
diff --git a/UMain.pas b/UMain.pas
index 703f197..252e557 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -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;