IApplicationVersion.Build

Синтаксис

Build: Integer;

Описание

Свойство Build возвращает номер сборки платформы.

Комментарии

Если номер версии «7.0.7432», то Build = 7432.

Пример Fore

Для выполнения примера предполагается наличие формы.

Добавьте ссылку на системную сборку Ui.

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;

При выполнении примера в консоль среды разработки будет выведена вся информация о текущей сборке платформы.

Для выпущенной версии платформы информация может выглядеть таким образом:

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

Для невыпущенной версии платформы информация может выглядеть таким образом:

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

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;

См. также:

IApplicationVersion