Changed TSolverEngine method arguments from constref to const

This commit is contained in:
Stefan Müller 2023-12-04 16:28:06 +01:00 committed by Stefan Müller
parent ca294c03f9
commit afa393a168
1 changed files with 6 additions and 6 deletions

View File

@ -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;