Skip to content

Commit

Permalink
InvControl/comments: make the comment for PVSystemList more readable.
Browse files Browse the repository at this point in the history
  • Loading branch information
PMeira committed Oct 6, 2023
1 parent b897f35 commit 4009830
Showing 1 changed file with 4 additions and 5 deletions.
9 changes: 4 additions & 5 deletions src/Controls/InvControl.pas
Original file line number Diff line number Diff line change
Expand Up @@ -606,7 +606,6 @@ procedure ValidateXYCurve(dss: TDSSContext; var curve: TXYcurveObj; InvControlMo

procedure TInvControlObj.PropertySideEffects(Idx: Integer; previousIntVal: Integer);
var
CharPos: Integer;
NodeBuffer: array[1..10] of Integer;
i,
j,
Expand Down Expand Up @@ -652,10 +651,10 @@ procedure TInvControlObj.PropertySideEffects(Idx: Integer; previousIntVal: Integ
end;
ord(TProp.PVSystemList):
begin
// Because is using this command from the previous version of InvControl, we assume that the list includes only
// PVSystems, so the list is updated
for CharPos := 0 to (DERNameList.Count - 1) do
DERNameList[CharPos] := 'PVSystem.' + DERNameList[CharPos];
// If using this property from the previous version of InvControl, we assume that the list includes only
// PVSystems. The list is updated to prepend the names with "PVSystem.".
for i := 0 to (DERNameList.Count - 1) do
DERNameList[i] := 'PVSystem.' + DERNameList[i];

PropertySideEffects(ord(TProp.DERList), previousIntVal);
end;
Expand Down

0 comments on commit 4009830

Please sign in to comment.