Fixed unused variables in THotSprings
This commit is contained in:
parent
64eeb98e85
commit
d32297782c
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue