From cca03f1990f468632e74c5d4aa8e3ff81dc910dd Mon Sep 17 00:00:00 2001
From: zamtmn <zamtmn@yandex.ru>
Date: Sun, 26 Jan 2025 15:56:37 +0500
Subject: [PATCH] =?UTF-8?q?*=20=D0=9F=D0=B0=D1=80=D1=81=D0=B8=D0=BD=D0=B3?=
 =?UTF-8?q?=20=D0=B8=D0=BD=D1=84=D0=BE=D1=80=D0=BC=D0=B0=D1=86=D0=B8=D0=B8?=
 =?UTF-8?q?=20=D0=BE=20=D0=B2=D0=B5=D1=80=D1=81=D0=B8=D0=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 cad_source/zcad/uzcsysinfo.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/cad_source/zcad/uzcsysinfo.pas b/cad_source/zcad/uzcsysinfo.pas
index ad8780303..c49ec3e1f 100644
--- a/cad_source/zcad/uzcsysinfo.pas
+++ b/cad_source/zcad/uzcsysinfo.pas
@@ -52,8 +52,14 @@ function GetVersion:TmyFileVersionInfo;
   GetPartOfPath(Major,AbbreviatedName,'.');
   GetPartOfPath(Minor,AbbreviatedName,'.');
   GetPartOfPath(Micro,AbbreviatedName,'.');
-  GetPartOfPath(Release,AbbreviatedName,'-');
-  GetPartOfPath(CommitsAfter,AbbreviatedName,'-');
+  result.major:=pos('-',AbbreviatedName);
+  if pos('-',AbbreviatedName)>0 then begin
+    GetPartOfPath(Release,AbbreviatedName,'-');
+    GetPartOfPath(CommitsAfter,AbbreviatedName,'-');
+  end else begin
+    GetPartOfPath(Release,AbbreviatedName,' ');
+    //GetPartOfPath(CommitsAfter,AbbreviatedName,'-');
+  end;
 
   TryStrToInt(Major,result.major);
   TryStrToInt(Minor,result.Minor);