如何在 Inno Setup Scripts 中将字符串版本值转换为数值？

Question

我想开发一个安装包来有条件地升级现有包。 我想根据要安装的版本检查现有软件版本。 为了做到这一点，我必须比较版本字符串。

如何在 Inno 安装脚本中将字符串值转换为数值？

RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Blah blah', 'Version', version)
version = 'V1.R2.12';
numVersion := ??string_to_numerical_value??(version);

Answer 1

这有点棘手，因为您希望正确处理“V1.R2.12”和“V0.R15.42”等版本 - 通过其他答案中的简单转换，您将得到 1212 和 1542，这不会与您期望的方式进行比较。

您需要确定版本号的每个部分可以有多大，并将这些部分乘以该值以获得正确的结束号。 类似这样的：

[Code]
function string_to_numerical_value(AString: string; AMaxVersion: LongWord): LongWord;
var
  InsidePart: boolean;
  NewPart: LongWord;
  CharIndex: integer;
  c: char;
begin
  Result := 0;
  InsidePart := FALSE;
  // this assumes decimal version numbers !!!
  for CharIndex := 1 to Length(AString) do begin
    c := AString[CharIndex];
    if (c >= '0') and (c <= '9') then begin
      // new digit found
      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 last char was a digit the last part hasn't been added yet
  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('Version ''V1.R2.12'' is not as recent as version ''V0.R15.42'' (false)', mbConfirmation, MB_OK);
  if string_to_numerical_value('V1.R2.12', 100) > string_to_numerical_value('V0.R15.42', 100) then
    MsgBox('Version ''V1.R2.12'' is more recent than version ''V0.R15.42'' (true)', mbConfirmation, MB_OK);
  Result := FALSE;
end;

是否为 AMaxVersion 传递 10、100 或 1000 取决于版本号部分的数量和范围。 请注意，不得溢出 LongWord 结果变量，该变量的最大值为 2^32 - 1。

Answer 2

我还没有尝试过（我的 Pascal 知识有点生疏），但类似以下的内容应该可以工作：

function NumericVersion(s: String): Integer;
var
  i: Integer;
  s1: String;
begin
  s1 := '';
  for i := 0 to Length(s)-1 do
    if (s[i] >= '0') and (s[i] <= '9') then
      s1 := s1 + s[i];

  Result := StrToIntDef(s1, 0);
end;

请注意，您必须将 i 的起始值和结束值用作我不确定它是否是从零开始的（如果它是“Pascal String”，则 s[0] 可能包含字符串的长度）。

Answer 3

我在注册表中实现了两个版本字符串（实际上是一个字符串和一个双字值）以克服复杂性。

displayversion="v1.r1.0"
version="10100"   (=1*10^4 + 1*10^2 + 0*10^0)

这很简单。 虽然这不是这个问题的答案，但是当面对复杂性时，人们可能会以另一种方式思考，这可以通过一种更简单的方式来避免。