* Парсинг информации о версии

zamtmn · Jan 26, 2025 · cca03f1 · cca03f1
1 parent 9b3983a
commit cca03f1
Showing 1 changed file with 8 additions and 2 deletions.
diff --git 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);