From afa393a168a357090e26158ca03864847d0619d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20M=C3=BCller?= <stefan.mueller@aksdb.de>
Date: Mon, 4 Dec 2023 16:28:06 +0100
Subject: [PATCH] Changed TSolverEngine method arguments from constref to const

---
 USolver.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/USolver.pas b/USolver.pas
index 53aea0d..5eacddf 100644
--- a/USolver.pas
+++ b/USolver.pas
@@ -63,9 +63,9 @@ type
 
   TSolverEngine = class
   public
-    procedure ProcessData(constref ASolver: ISolver);
-    procedure Run(constref ASolver: ISolver);
-    procedure RunAndFree(constref ASolver: ISolver);
+    procedure ProcessData(const ASolver: ISolver);
+    procedure Run(const ASolver: ISolver);
+    procedure RunAndFree(const ASolver: ISolver);
   end;
 
 implementation
@@ -90,7 +90,7 @@ end;
 
 { TSolverEngine }
 
-procedure TSolverEngine.ProcessData(constref ASolver: ISolver);
+procedure TSolverEngine.ProcessData(const ASolver: ISolver);
 var
   data: TextFile;
   s: string;
@@ -112,7 +112,7 @@ begin
   ASolver.Finish;
 end;
 
-procedure TSolverEngine.Run(constref ASolver: ISolver);
+procedure TSolverEngine.Run(const ASolver: ISolver);
 begin
   WriteLn;
   WriteLn('--- ', ASolver.PuzzleName, ' ---');
@@ -121,7 +121,7 @@ begin
   WriteLn('Part 2: ', ASolver.ResultPart2);
 end;
 
-procedure TSolverEngine.RunAndFree(constref ASolver: ISolver);
+procedure TSolverEngine.RunAndFree(const ASolver: ISolver);
 begin
   Run(ASolver);
   ASolver.Free;