DSSObj, LineGeometry: add array shortcuts for Wire; use the array shortcuts more.

Author: PMeira

docs/changelog.md

@@ -68,7 +68,7 @@ This version should match OpenDSS v9.8.0.1 (SVN r3723). Remember to check the co
     - AutoTrans: fix `DumpProperties`, readd `bank` property (unused internally).
     - Commands/Save: add version and timestamp to master file.
     - DynamicExp and DynEqPCE: fix `DumpProperties`; extend to support JSON in/out.
-    - Generator: fix default value for `D` (as DSS property); previously, the value was left uninitialized. It seems to only affect user models, so it doesn't seem like a big issue. Explicitly providing a value would also work fine as a workaround.
+    - Generator: fix default value for `D` (as DSS property); previously, the value was left uninitialized. It seems to only affect user models, so it doesn't seem like a big issue. Explicitly providing a value would also works fine as a workaround.
     - Line and LineCode: fix formatting issues in `DumpProperties`
     - LoadShape: fix some issues when copying/saving data when using float32 data (which users need to explicitly opt-in).
     - PriceShape/TempShape: adjust setters for mean/stddev properties

src/General/DSSObjectHelper.pas

@@ -2578,9 +2578,19 @@ procedure TDSSClassHelper.SetObjObjects(ptr: Pointer;Index: Integer; Value: TDSS
 begin
     Obj := TDSSObject(ptr);
     flags := PropertyFlags[Index];
-
     if TPropertyType.DSSObjectReferenceArrayProperty <> PropertyType[Index] then
-        Exit;
+    begin
+        if (PropertyArrayAlternative[Index] = 0) then
+        begin
+            Exit;
+        end;
+
+        Index := PropertyArrayAlternative[Index];
+        if TPropertyType.DSSObjectReferenceArrayProperty <> PropertyType[Index] then
+        begin
+            Exit;
+        end;
+    end;
 
     if TPropertyFlag.WriteByFunction in flags then
     begin
@@ -3354,6 +3364,10 @@ procedure TDSSClassHelper.SetObjIntegers(ptr: Pointer; Index: Integer; Value: PI
     end;
 
 begin
+    if (PropertyArrayAlternative[Index] <> 0) then
+    begin
+        Index := PropertyArrayAlternative[Index];
+    end;
     Obj := TDSSObject(ptr);
     flags := PropertyFlags[Index];
     case PropertyType[Index] of
@@ -3506,6 +3520,10 @@ procedure TDSSClassHelper.SetObjDoubles(ptr: Pointer; Index: Integer; Value: PDo
         Result := true;
     end;    
 begin
+    if (PropertyArrayAlternative[Index] <> 0) then
+    begin
+        Index := PropertyArrayAlternative[Index];
+    end;
     Obj := TDSSObject(ptr);
     ptype := PropertyType[Index];
     flags := PropertyFlags[Index];
@@ -3883,6 +3901,12 @@ procedure TDSSClassHelper.SetObjStrings(ptr: Pointer; Index: Integer; Value: PPA
 
 begin
     Obj := TDSSObject(ptr);
+
+    if (PropertyArrayAlternative[Index] <> 0) then
+    begin
+        Index := PropertyArrayAlternative[Index];
+    end;
+
     flags := PropertyFlags[Index];
     case PropertyType[Index] of 
         TPropertyType.DSSObjectReferenceArrayProperty:

src/General/LineGeometry.pas

@@ -295,8 +295,7 @@ procedure TLineGeometry.DefineProperties;
     // PropertyRedundantWith[ord(TProp.wires)] := ord(TProp.wire);
     PropertyNameJSON[ord(TProp.wires)] := 'Conductors';
 
-
-    // PropertyArrayAlternative[ord(TProp.wire)] := ord(TProp.wires);
+    PropertyArrayAlternative[ord(TProp.wire)] := ord(TProp.wires);
 
     // enums
     PropertyType[ord(TProp.units)] := TPropertyType.MappedStringEnumProperty;