Сравнение версий в Inno Setup: конвертация строк в числа

Delphi , Программа и Интерфейс , Инсталяция

Сравнение версий в Inno Setup: конвертация строк в числа

При создании пакета установки для условного обновления существующего пакета может возникнуть необходимость сравнить текущую версию программного обеспечения с версией, которая будет установлена. Для этого нужно сравнить строки версий.

В данной статье мы рассмотрим, как конвертировать строковое значение версии в числовое в скрипте Inno Setup.

Проблема

При получении версии из реестра мы получаем строку, но для сравнения версий нам нужно работать с числами. Как конвертировать строковое значение версии в числовое в скрипте Inno Setup?

Решение

Для сравнения версий нам нужно учитывать все части версии (мажорную, минорную и Build). Чтобы правильно сравнить версии, нужно умножить каждую часть на соответствующий коэффициент, а затем сложить результаты.

Ниже представлен пример функции, которая конвертирует строковое значение версии в числовое:

function string_to_numerical_value(AString: string; AMaxVersion: LongWord): LongWord;
var
  InsidePart: boolean;
  NewPart: LongWord;
  CharIndex: integer;
  c: char;
begin
  Result := 0;
  InsidePart := FALSE;
  // этот код предполагает, что версии представлены в десятичном формате
  for CharIndex := 1 to Length(AString) do begin
    c := AString[CharIndex];
    if (c >= '0') and (c <= '9') then begin
      // найдена новая цифра
      if not InsidePart then begin
        Result := Result * AMaxVersion + NewPart;
        NewPart := 0;
        InsidePart := TRUE;
      end;
      NewPart := NewPart * 10 + Ord(c) - Ord('0');
    end else
      InsidePart := FALSE;
  end;
  // если последним символом была цифра, последнюю часть еще не добавили
  if InsidePart then
    Result := Result * AMaxVersion + NewPart;
end;

Эту функцию можно протестировать следующим образом:

function InitializeSetup(): Boolean;
begin
  if string_to_numerical_value('V1.R2.12', 1) < string_to_numerical_value('V0.R15.42', 1) then
    MsgBox('Версия ''V1.R2.12'' не является новейшей по сравнению с версией ''V0.R15.42'' (ложь)', mbConfirmation, MB_OK);
  if string_to_numerical_value('V1.R2.12', 100) > string_to_numerical_value('V0.R15.42', 100) then
    MsgBox('Версия ''V1.R2.12'' является новейшей по сравнению с версией ''V0.R15.42'' (истина)', mbConfirmation, MB_OK);
  Result := FALSE;
end;

Значение, передаваемое в качестве второго параметра функции string_to_numerical_value, зависит от количества и диапазона частей версии. Необходимо убедиться, что результат не превысит значение переменной LongWord, у которой максимальное значение равно 2^32 - 1.

Альтернативный ответ

Если вы столкнулись с сложностью при сравнении версий, можно подумать о другом подходе. Например, можно сохранить версию в виде строки и в виде дword значения в реестре. Это упрощает сравнение версий, но может потребовать дополнительных усилий при установке и обновлении программы.

Вывод

В данной статье мы рассмотрели, как конвертировать строковое значение версии в числовое в скрипте Inno Setup. Мы представили функцию, которая учитывает все части версии и позволяет правильно сравнить их. Также мы рассмотрели альтернативный подход к решению этой проблемы.

Создано по материалам из источника по ссылке.

Статья описывает проблему сравнения версий программного обеспечения в скрипте Inno Setup, когда версии представлены в виде строк, и предлагает решение в виде функции, которая конвертирует строковое значение версии в числовое для правильного сравнения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Инсталяция ::