浏览代码

* Fixed version-number without build-number, bug #29055

git-svn-id: trunk@41226 -
joost 6 年之前
父节点
当前提交
e5492d8992
共有 1 个文件被更改,包括 12 次插入1 次删除
  1. 12 1
      utils/fppkg/fppkg.pp

+ 12 - 1
utils/fppkg/fppkg.pp

@@ -453,8 +453,19 @@ begin
 end;
 end;
 
 
 procedure TMakeTool.ShowVersion;
 procedure TMakeTool.ShowVersion;
+var
+  Version: TFPVersion;
 begin
 begin
-  Writeln('Version: ', version_major, '.', version_minor, '.', version_micro, '-', version_build);
+  Version := TFPVersion.Create;
+  try
+    Version.Major := version_major;
+    Version.Minor := version_minor;
+    Version.Micro := version_micro;
+    Version.Build := version_build;
+    Writeln('Version: ', Version.AsString);
+  finally
+    Version.Free;
+  end;
 end;
 end;