Neukladat zbytecna data.

kmzbrnoI · Apr 23, 2017 · 483483f · 483483f
1 parent 7e28cea
commit 483483f
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 7 deletions.
diff --git a/src/ReliefObjects.pas b/src/ReliefObjects.pas
@@ -877,23 +877,29 @@ function TPanelObjects.FSave(aFile:string;const ORs:string):Byte;
      //objekty
      obj := '';
      for j := 0 to (Self.Bloky[i] as TUsek).Symbols.Count-1 do obj := obj + Format('%.3d%.3d%.2d',[(Self.Bloky[i] as TUsek).Symbols[j].Position.X, (Self.Bloky[i] as TUsek).Symbols[j].Position.Y, (Self.Bloky[i] as TUsek).Symbols[j].SymbolID]);
-     inifile.WriteString('U'+IntToStr(Self.Bloky[i].Index),'S',obj);
+     if (obj <> '') then
+       inifile.WriteString('U'+IntToStr(Self.Bloky[i].Index),'S',obj);
 
      //JCClick
      obj := '';
      for j := 0 to (Self.Bloky[i] as TUsek).JCClick.Count-1 do obj := obj + Format('%.3d%.3d',[(Self.Bloky[i] as TUsek).JCClick[j].X, (Self.Bloky[i] as TUsek).JCClick[j].Y]);
-     inifile.WriteString('U'+IntToStr(Self.Bloky[i].Index),'C',obj);
+     if (obj <> '') then
+       inifile.WriteString('U'+IntToStr(Self.Bloky[i].Index),'C',obj);
 
      //KPopisek
      obj := '';
      for j := 0 to (Self.Bloky[i] as TUsek).KPopisek.Count-1 do obj := obj + Format('%.3d%.3d',[(Self.Bloky[i] as TUsek).KPopisek[j].X, (Self.Bloky[i] as TUsek).KPopisek[j].Y]);
-     inifile.WriteString('U'+IntToStr(Self.Bloky[i].Index),'P',obj);
+     if (obj <> '') then
+       inifile.WriteString('U'+IntToStr(Self.Bloky[i].Index),'P',obj);
 
      //Nazev
-     inifile.WriteString('U'+IntToStr(Self.Bloky[i].Index),'N',(Self.Bloky[i] as TUsek).KpopisekStr);
+     if ((Self.Bloky[i] as TUsek).KpopisekStr <> '') then
+       inifile.WriteString('U'+IntToStr(Self.Bloky[i].Index),'N',(Self.Bloky[i] as TUsek).KpopisekStr);
 
      //vetve
-     inifile.WriteInteger('U'+IntToStr(i), 'VC', (Self.Bloky[i] as TUsek).Vetve.Count);
+     if ((Self.Bloky[i] as TUsek).Vetve.Count > 0) then
+       inifile.WriteInteger('U'+IntToStr(i), 'VC', (Self.Bloky[i] as TUsek).Vetve.Count);
+
      for j := 0 to (Self.Bloky[i] as TUsek).Vetve.Count-1 do
       begin
        if ((Self.Bloky[i] as TUsek).Vetve[j].node1.vyh < 0) then

diff --git a/src/hJOPeditor.dproj b/src/hJOPeditor.dproj
@@ -119,7 +119,7 @@
 						<VersionInfo Name="AutoIncBuild">True</VersionInfo>
 						<VersionInfo Name="MajorVer">2</VersionInfo>
 						<VersionInfo Name="MinorVer">4</VersionInfo>
-						<VersionInfo Name="Release">2</VersionInfo>
+						<VersionInfo Name="Release">3</VersionInfo>
 						<VersionInfo Name="Build">0</VersionInfo>
 						<VersionInfo Name="Debug">False</VersionInfo>
 						<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -132,7 +132,7 @@
 					<VersionInfoKeys>
 						<VersionInfoKeys Name="CompanyName"/>
 						<VersionInfoKeys Name="FileDescription"/>
-						<VersionInfoKeys Name="FileVersion">2.4.2.0</VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">2.4.3.0</VersionInfoKeys>
 						<VersionInfoKeys Name="InternalName">hJOPeditor</VersionInfoKeys>
 						<VersionInfoKeys Name="LegalCopyright">Jan Horacek 2011-2015</VersionInfoKeys>
 						<VersionInfoKeys Name="LegalTrademarks">Jan Horacek 2011-2015</VersionInfoKeys>