LineCode: fix issue in DumpProperties

dss-extensions · Jul 17, 2023 · 5f2e0c0 · 5f2e0c0
1 parent 08952f6
commit 5f2e0c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/General/LineCode.pas b/src/General/LineCode.pas
@@ -534,7 +534,7 @@ procedure TLineCodeObj.DumpProperties(F: TFileStream; Complete: Boolean; Leaf: B
         for  k := 1 to NumAmpRatings do
             TempStr := TempStr + floattoStrf(AmpRatings[k - 1], ffGeneral, 8, 4) + ',';
         TempStr := TempStr + ']';
-        FSWriteln(F, Format('~ %s=%s', [PropertyName[26]]) + TempStr);
+        FSWriteln(F, Format('~ %s=%s', [PropertyName[26], TempStr]));
         FSWriteln(F, Format('~ %s=%s', [PropertyName[27], PropertyValue[27]]));
     end;
 end;