Fixed unused variables in THotSprings

This commit is contained in:
Stefan Müller 2023-12-13 18:37:56 +01:00 committed by Stefan Müller
parent 64eeb98e85
commit d32297782c
1 changed files with 1 additions and 3 deletions

View File

@ -59,12 +59,10 @@ implementation
procedure THotSprings.ExtendArrangement(const AArrangement: string; const ARemainingFreeOperationalCount,
ACurrentValidationIndex: Integer);
var
i, len: Integer;
match: Boolean;
temp: string;
begin
len := Length(AArrangement);
if len = Length(FSpringPattern) then
if Length(AArrangement) = Length(FSpringPattern) then
Inc(FPart1)
else begin
temp := AArrangement;