TORMBrJson.JsonToObjectList - No Android não funciona

[Marcos]

Olá, esse código funciona perfeitamente num aplicativo Win32, entretanto, quando complicado para Android da erro: Segmentation fault (11)  que significa Access Violation. Não consegui descobrir o motivo, mas creio estar relacionado a função GetNextJSON da unit ormbr.json.

procedure TForm1.Button1Click(Sender: TObject);
var
  ListaGrupo : TObjectList<Tgrupo>;
  Str        : string;
begin
  Str := '[' +
         ' {' +
         '    "id_grupo": 1,' +
         '    "descricao": "GRUPO 1"' +
         ' },' +
         ' {' +
         '    "id_grupo": 2,' +
         '    "descricao": "GRUPO 2"' +
         ' }' +
         ']';

  ListaGrupo := TObjectList<Tgrupo>.Create;
  ListaGrupo := TORMBrJson.JsonToObjectList<Tgrupo>(Str);

  if ListaGrupo.Count = 2 then
   ShowMessage('Tem 2 registros na lista - Funcionou OK');
end;

Obs: Estou usando Delphi 10.3.1

[Isaque Pinheiro]

Olá, esse código funciona perfeitamente num aplicativo Win32, entretanto, quando complicado para Android da erro: Segmentation fault (11)  que significa Access Violation. Não consegui descobrir o motivo, mas creio estar relacionado a função GetNextJSON da unit ormbr.json.

procedure TForm1.Button1Click(Sender: TObject);
var
  ListaGrupo : TObjectList<Tgrupo>;
  Str        : string;
begin
  Str := '[' +
         ' {' +
         '    "id_grupo": 1,' +
         '    "descricao": "GRUPO 1"' +
         ' },' +
         ' {' +
         '    "id_grupo": 2,' +
         '    "descricao": "GRUPO 2"' +
         ' }' +
         ']';

  ListaGrupo := TObjectList<Tgrupo>.Create;
  ListaGrupo := TORMBrJson.JsonToObjectList<Tgrupo>(Str);

  if ListaGrupo.Count = 2 then
   ShowMessage('Tem 2 registros na lista - Funcionou OK');
end;

Obs: Estou usando Delphi 10.3.1

Correção aplicada e disponível no repositório.