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
|
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;
|
||||||
|
|
Loading…
Reference in New Issue