Line: fix formatting issue in DumpProperties

dss-extensions · Jul 17, 2023 · 0caaffc · 0caaffc
1 parent 5f2e0c0
commit 0caaffc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/PDElements/Line.pas b/src/PDElements/Line.pas
@@ -1207,7 +1207,7 @@ procedure TLineObj.DumpProperties(F: TFileStream; Complete: Boolean; Leaf: Boole
         else
             FSWriteln(F, '~ ' + PropertyName[3] + '=' + '');
 
-        FSWriteln(F, Format('~ %s=%d', [PropertyName[4], len]));
+        FSWriteln(F, Format('~ %s=%g', [PropertyName[4], len]));
         FSWriteln(F, Format('~ %s=%d', [PropertyName[5], Fnphases]));
         if SymComponentsModel then
             rslt := Format('%-.7g', [R1 / FUnitsConvert])