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

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

Название метода	Описание	Пример
GetApplicationVersion	Полная версия клиента	4.30.0 milestone 17
TbtkScriptApplicationObject.VersionMajor	Мажорная версия	4
TbtkScriptApplicationObject.VersionMinor	Минорная версия	30
TbtkScriptApplicationObject.VersionRelease	Релизная версия	0
TbtkScriptApplicationObject.VersionMilestone	Промежуточная версия	17

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

<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>