3.2. Глобальные параметры приложения

3.2.1. Скриптовые методы получения версии клиента

Шаблон использования:

<pascal>

function GetApplicationVersion: string;

function TbtkScriptApplicationObject.VersionMajor: Integer;

function TbtkScriptApplicationObject.VersionMinor: Integer;

function TbtkScriptApplicationObject.VersionRelease: Integer;

function TbtkScriptApplicationObject.VersionMilestone: Integer;

</pascal>

Пример использования

<pascal>

fullVersionName := GetApplicationVersion; // 4.30.0 milestone 17

majorVersion := Application.VersionMajor; // 4

minorVersion := Application.VersionMinor; // 30

releaseVersion := Application.VersionRelease; // 0

milestoneVersion := Application.VersionMilestone; // 17

str := 'Полное имя версии: ' + fullVersionName + #13;

str := str + 'Номер мажорной версии = ' + IntToStr(majorVersion) + #13;

str := str + 'Номер минорной версии = ' + IntToStr(minorVersion) + #13;

str := str + 'Номер релизной версии = ' + IntToStr(releaseVersion) + #13;

str := str + 'Номер промежуточной версии = ' + IntToStr(milestoneVersion);

ShowMessage(str);

</pascal>