Merge pull request TurboPack#44 from tlabuild/patch-1

Update error in OvcCalc.pas procedure BackButton
atkins126 · Mar 19, 2024 · 029055a · 029055a
2 parents 1562586 + 1047a9f
commit 029055a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/source/OvcCalc.pas b/source/OvcCalc.pas
@@ -2616,6 +2616,7 @@ procedure TOvcCustomCalculator.PressButton(Button : TOvcCalculatorButton);
         end;
         FDisplayStr := Copy(FDisplayStr, 1, Length(FDisplayStr)-1);
         LastOperand := StrToFloat(FDisplayStr);
+        DisplayValue := LastOperand;
         cSetDisplayString(FDisplayStr);
       end else begin
         LastOperand := 0;