Merge branch 'release/0.1.2-beta' into main

Author: delphidabbler

.gitignore

@@ -0,0 +1,74 @@
+# .gitignore file based on 
+# https://github.com/github/gitignore/blob/main/Delphi.gitignore
+# License: CC0
+
+# ----------------------------------
+# Delphi compiler-generated binaries
+# ----------------------------------
+
+*.exe
+*.dll
+*.bpl
+*.bpi
+*.dcp
+*.so
+*.apk
+*.drc
+*.map
+*.dres
+*.rsm
+*.tds
+*.dcu
+*.lib
+*.a
+*.o
+*.ocx
+#*.res
+*.tlb
+*.obj
+
+# --------------------------------------------
+# Delphi autogenerated files (duplicated info)
+# --------------------------------------------
+
+*.cfg
+*.hpp
+#Resource.rc
+
+# ----------------------------------------------
+# Delphi designer / tools files (not being used)
+# ----------------------------------------------
+
+# diagram portfolio file
+*.dpp    
+       
+# visual live bindings
+*.vlb    
+       
+# deployment manager
+*.deployproj    
+
+# ---------------------------------------
+# Delphi local files (user-specific info)
+# ---------------------------------------
+
+*.local
+*.identcache
+*.projdata
+*.tvsconfig
+*.dsk
+
+# --------------------------
+# Delphi history and backups
+# --------------------------
+
+__history/
+__recovery/
+*.~*
+
+# ----------------
+# Project specific
+# ----------------
+
+dunit.ini
+

CHANGELOG.md

@@ -0,0 +1,19 @@
+# Change Log for Fractions unit
+
+## v0.1.2 beta of 13 December 2023
+
++ Revised _LCM_ routine to reduce chance of integer overflow [issue #8].
++ Added `.gitignore` file.
++ Documentation changes:
+  + Moved `Docs/ChangeLog.txt`into repo root, converted from plain text to Markdown format and renamed as `CHANGELOG.md`.
+  + Moved `Docs/ReadMe.htm` file into repo root, converted from HTML to Markdown format, revised and renamed as `README.md`.
+  + Removed broken links from header comments in Pascal unit.
+
+## v0.1.1 beta of 11 January 2014
+
++ Fixed problem with compiler directives in Fractions unit that was causing compilation to fail on Delphi XE5.
++ Minor documentation tweaks and corrections.
+
+## v0.1.0 beta of 13 January 2013
+
++ Initial beta release for Delphi 2009 and later.

DelphiDabbler.Lib.Fractions.pas

@@ -3,20 +3,21 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2013-2014, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2013-2023, Peter Johnson (www.delphidabbler.com).
  *
  * Defines an advanced record type that encapsulates fraction and related
  * operations.
  *
  * Acknowledgements:
  *   o The information on fractions in the Mathematics Help Facility at
- *     http://www.themathleague.com/ was useful in writing this code.
+ *     https://mathleague.com/ was useful in writing this code.
  *   o The GCD and LCM routines were taken from a UseNet post by Hans van
- *     Kruijssen: see http://www.efg2.com/Lab/Library/UseNet/2000/0315b.txt.
+ *     Kruijssen [link broken].
  *   o The DecimalToFraction routine was adapted from the Turbo Pascal code
  *     presented in "Algorithm To Convert A Decimal To A Fraction" by John
- *     Kennedy, Mathematics Department, Santa Monica College. See
- *     http://homepage.smc.edu/kennedy_john/DEC2FRAC.PDF
+ *     Kennedy, Mathematics Department, Santa Monica College.
+ *   o lukas-hribik (https://github.com/lukas-hribik) for suggesting a reworking
+ *     of the LCM function to reduce the chance of integer overflow.
 }
 
 
@@ -313,7 +314,7 @@ function GCD(A, B: Int64): Int64;
 ///  <summary>Calculates the least common multiple of two integers.</summary>
 function LCM(A, B: Int64): Int64;
 begin
-  Result := (A * B) div GCD(A, B);
+  Result := A * (B div GCD(A, B));
 end;
 
 ///  <summary>Converts a decimal to a fraction.</summary>

Docs/ChangeLog.txt

@@ -1,2 +1,2 @@
 [InternetShortcut]
-URL=http://www.delphidabbler.com/url/fractions-docs
+URL=https://delphidabbler.com/url/fractions-docs