diff --git a/src/ReliefObjects.pas b/src/ReliefObjects.pas index 3a400ae..24f85f5 100644 --- 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 index 8df739b..dc2dd95 100644 --- a/src/hJOPeditor.dproj +++ b/src/hJOPeditor.dproj @@ -119,7 +119,7 @@ True 2 4 - 2 + 3 0 False False @@ -132,7 +132,7 @@ - 2.4.2.0 + 2.4.3.0 hJOPeditor Jan Horacek 2011-2015 Jan Horacek 2011-2015