Build: Integer;
The Build property returns the platform build number.
If the version number is 7.0.7432, Build = 7432.
Executing the example requires a form.
Add a link to the Ui system assembly.
Sub UserProc;
Var
Ver: IWinApplicationVersion;
Begin
Ver := WinApplication.Version;
Debug.WriteLine("Build - " + Ver.Build.ToString);
Debug.WriteLine("Debug - " + Ver.Debug.ToString);
Debug.WriteLine("Description - " + Ver.Description);
Debug.WriteLine("Major - " + Ver.Major.ToString);
Debug.WriteLine("Minor - " + Ver.Minor.ToString);
Debug.WriteLine("PrivateBuild - " + Ver.PrivateBuild.ToString);
Debug.WriteLine("QFE - " + Ver.QFE.ToString);
Debug.WriteLine("Release - " + Ver.Release.ToString);
Debug.WriteLine("ShortDescription - " + Ver.ShortDescription);
Debug.WriteLine("IsRelease - " + Ver.IsRelease.ToString);
Debug.WriteLine("MaxReleaseBuild - " + Ver.MaxReleaseBuild.ToString);
Debug.WriteLine("MinReleaseBuild - " + Ver.MinReleaseBuild.ToString);
Debug.WriteLine("VersionDescription - " + Ver.VersionDescription);
End Sub UserProc;
After executing the example the development environment console displays all information about the current platform build.
The information for the released platform version may look as follows:
Build - 3
Debug - False
Description - Release 9.2.3.3 x86
Major - 9.2
Minor - 2
PrivateBuild - False
QFE - 3
Release - True
ShortDescription - 9.2.3.3 x86
IsRelease - False
MaxReleaseBuild - 3
MinReleaseBuild - 0
VersionDescription - Release 9.2.3.3 x86
The information for the unreleased platform version may look as follows:
Build - 55002
Debug - False
Description - Release 9.2.55002.0 Defects x86
Major - 9.2
Minor - 2
PrivateBuild - True
QFE - 0
Release - False
ShortDescription - 9.2.55002.0 Defects x86
IsRelease - False
MaxReleaseBuild - 3
MinReleaseBuild - 0
VersionDescription - Release 9.2.3.3 x86
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Imports Prognoz.Platform.Interop.Ui;
Sub UserProc();
Var
WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Ver: IWinApplicationVersion;
Begin
Ver := WinAppCls.Version;
System.Diagnostics.Debug.WriteLine("Build - " + Ver.Build.ToString());
System.Diagnostics.Debug.WriteLine("Debug - " + Ver.Debug.ToString());
System.Diagnostics.Debug.WriteLine("Description - " + Ver.Description);
System.Diagnostics.Debug.WriteLine("Major - " + Ver.Major.ToString());
System.Diagnostics.Debug.WriteLine("Minor - " + Ver.Minor.ToString());
System.Diagnostics.Debug.WriteLine("PrivateBuild - " + Ver.PrivateBuild.ToString());
System.Diagnostics.Debug.WriteLine("QFE - " + Ver.QFE.ToString());
System.Diagnostics.Debug.WriteLine("Release - " + Ver.Release.ToString());
System.Diagnostics.Debug.WriteLine("ShortDescription - " + Ver.ShortDescription;
System.Diagnostics.Debug.WriteLine("IsRelease - " + Ver.IsRelease.ToString());
System.Diagnostics.Debug.WriteLine("MaxReleaseBuild - " + MaxReleaseBuild.ToString());
System.Diagnostics.Debug.WriteLine("MinReleaseBuild - " + Ver.MinReleaseBuild.ToString());
System.Diagnostics.Debug.WriteLine("VersionDescription - " + Ver.VersionDescription);
End Sub;
See also: