Changed TSolverEngine method arguments from constref to const
This commit is contained in:
parent
ca294c03f9
commit
afa393a168
12
USolver.pas
12
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;
|
||||
|
|
Loading…
Reference in New Issue