fix allow increase/decrease from not working well with 8 byte values

slamj1 · Apr 29, 2018 · 1ec74f1 · 1ec74f1
1 parent 0ab83f6
commit 1ec74f1
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Cheat Engine/MemoryRecordUnit.pas b/Cheat Engine/MemoryRecordUnit.pas
@@ -2535,13 +2535,13 @@ procedure TMemoryRecord.ApplyFreeze;
 
           if showAsHex then
           begin
-            newdecimalvalue:=StrToInt('$'+newvalue);
-            olddecimalvalue:=StrToInt('$'+oldvalue);
+            newdecimalvalue:=StrToQWordEx('$'+newvalue);
+            olddecimalvalue:=StrToQWordEx('$'+oldvalue);
           end
           else
           begin
-            newdecimalvalue:=StrToInt(newvalue);
-            olddecimalvalue:=StrToInt(oldvalue);
+            newdecimalvalue:=StrToQWordEx(newvalue);
+            olddecimalvalue:=StrToQWordEx(oldvalue);
           end;
 
           if (allowIncrease and (newdecimalvalue>olddecimalvalue)) or