文件夹信息，保留小数位数，应兼容导入导出

Units/ProjectCommands.pas

@@ -1101,8 +1101,8 @@ begin
   FNewNode.Rec.ValueByName('PhaseCount').AsInteger := AXmlNode.Attributes['PhaseCount'];
   FNewNode.Rec.ValueByName('AuditStatus').AsInteger := AXmlNode.Attributes['AuditStatus'];
   FNewNode.Rec.ValueByName('CreateDate').AsString := FormatDateTime('yyyy-mm-dd', Date);
-  FNewNode.Rec.ValueByName('CommonDigit').AsInteger := VarToIntDef(AXmlNode.Attributes['CommonDigit'], 0);
-  FNewNode.Rec.ValueByName('DealPayDigit').AsInteger := VarToIntDef(AXmlNode.Attributes['DealPayDigit'], 0);
+  FNewNode.Rec.ValueByName('CommonDigit').AsInteger := StrToIntDef(AXmlNode.Attributes['CommonDigit'], 0);
+  FNewNode.Rec.ValueByName('DealPayDigit').AsInteger := StrToIntDef(AXmlNode.Attributes['DealPayDigit'], 0);
 
   if G_IsCloud then
   begin