json - 在 Inno Setup 中解析 JSON bool 值？

Question

我需要在 Inno Setup 中解析 JSON bool 值。我试图修改 How to parse a JSON string in Inno Setup? 中的代码像这样解析 bool 值:

function FindJsonBoolean(
  Output: TJsonParserOutput; Parent: TJsonObject; Key: TJsonString;
  var Bool: TJsonBool): Boolean;
var
  JsonValue: TJsonValue;
begin
  Result :=
    FindJsonValue(Output, Parent, Key, JsonValue) and
    (JsonValue.Kind = JVKBoolean);
  if Result then
    begin    
      Bool := Output.Boolean[JsonValue.Index]; 
    end;
end;

但编译失败:

Unknown type 'TJsonBool'

Answer 1

JsonParser library 中没有TJsonBool .有:

TJsonWord = (JWUnknown, JWTrue, JWFalse, JWNull);

使用类似的东西并将 TheWord 与 JWTrue/JWFalse 进行比较。

function FindJsonWord(
  Output: TJsonParserOutput; Parent: TJsonObject; Key: TJsonString;
  var TheWord: TJsonWord): Boolean;
var
  JsonValue: TJsonValue;
begin
  Result :=
    FindJsonValue(Output, Parent, Key, JsonValue) and
    (JsonValue.Kind = JVKWord);

  if Result then
  begin    
    TheWord := Output.Words[JsonValue.Index]; 
  end;
end;