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 TSolverEngine = class
public public
procedure ProcessData(constref ASolver: ISolver); procedure ProcessData(const ASolver: ISolver);
procedure Run(constref ASolver: ISolver); procedure Run(const ASolver: ISolver);
procedure RunAndFree(constref ASolver: ISolver); procedure RunAndFree(const ASolver: ISolver);
end; end;
implementation implementation
@ -90,7 +90,7 @@ end;
{ TSolverEngine } { TSolverEngine }
procedure TSolverEngine.ProcessData(constref ASolver: ISolver); procedure TSolverEngine.ProcessData(const ASolver: ISolver);
var var
data: TextFile; data: TextFile;
s: string; s: string;
@ -112,7 +112,7 @@ begin
ASolver.Finish; ASolver.Finish;
end; end;
procedure TSolverEngine.Run(constref ASolver: ISolver); procedure TSolverEngine.Run(const ASolver: ISolver);
begin begin
WriteLn; WriteLn;
WriteLn('--- ', ASolver.PuzzleName, ' ---'); WriteLn('--- ', ASolver.PuzzleName, ' ---');
@ -121,7 +121,7 @@ begin
WriteLn('Part 2: ', ASolver.ResultPart2); WriteLn('Part 2: ', ASolver.ResultPart2);
end; end;
procedure TSolverEngine.RunAndFree(constref ASolver: ISolver); procedure TSolverEngine.RunAndFree(const ASolver: ISolver);
begin begin
Run(ASolver); Run(ASolver);
ASolver.Free; ASolver.Free;