Question

我得到一个＆＃34;冒号（:)预期＆＃34;这段代码的语法错误（第14行;第10列），我感到茫然。这段代码在Inno Setup编译器中运行，它类似于Delphi，但我不认为它是完整的Delphi。

Inno Setup版本是5.5.9（a），所以Ansi版本。

procedure HexToBin(const Hex: string; Stream: TStream);
var
  B: Byte;
  C: Char;
  Idx, Len: Integer;
begin
  Len := Length(Hex);
  If Len = 0 then Exit;
  If (Len mod 2) <> 0 then RaiseException('bad hex length');
  Idx := 1;
  repeat
    C := Hex[Idx];
    case C of
      '0'..'9': B := Byte((Ord(C) - '0') shl 4);
      'A'..'F': B := Byte(((Ord(C) - 'A') + 10) shl 4);
      'a'..'f': B := Byte(((Ord(C) - 'a') + 10) shl 4);
    else
      RaiseException('bad hex data'); 
    end; 
    C := Hex[Idx+1];
    case C of
      '0'..'9': B := B or Byte(Ord(C) - '0');
      'A'..'F': B := B or Byte((Ord(C) - 'A') + 10);
      'a'..'f': B := B or Byte((Ord(C) - 'a') + 10);
    else
      RaiseException('bad hex data'); 
    end; 
    Stream.WriteBuffer(B, 1);
    Inc(Idx, 2);
  until Idx > Len;
end;

begin
  FStream := TFileStream.Create('myfile.jpg', fmCreate);
  HexToBin(myFileHex, FStream);
  FStream.Free;
end;

有人可以发现我的错误吗？

Answer 1

Inno Setup的Ansi版本似乎不支持case语句中的范围。

所以你必须枚举集合：

case C of
  '0', '1', '2', '3', '4', '5', '6', '7', '8', '9': B := ...;
  ...
end;

在什么情况下使用if可能更好：

if (C >= '0') and (C <= '9') then

虽然更好，但请使用Inno Setup的Unicode版本。在21世纪，您不应再开发非Unicode应用程序了。 请参阅Upgrading from Ansi to Unicode version of Inno Setup (any disadvantages)。

最好还是使用CryptStringToBinary Windows API function进行十六进制到二进制转换。请参阅我对您的其他问题Writing binary file in Inno Setup的回答。

请注意，您的代码存在许多其他问题。

您正在从char中减去integer。
Inno Setup没有Inc的两个参数重载。
TStream.WriteBuffer需要string，而不是byte。

＆＃34;冒号（＆＃39;：＆＃39;）预期＆＃34; Inno Setup Pascal脚本中case语句中字符范围的编译器错误

1 个答案: