Использование TSuperRecord

[rareMax]

Привет. Пользовался ли кто-то автоматическим заполнением Record в SuperObject? Очень много кода сокращает:

 result[I] := TSuperRecord<TvtFileReport>.FromJSON(X.O[I]);

Но вот только проблема одна. От сервера приходит несколько записей, в которых есть дефис - а значит такое поле нельзя создать в Record"е. И как результат не получается получить все данные. Кто знает как это решить?

 

Что может прийти от сервера

 

  "CAT-QuickHeal": {"detected": true, "version": "10.00", "result": "Trojan.VB.acgy", "update": "20100514"},

 

CAT-QuickHeal - должно быть полем. Но его нельзя создать( Сейчас вижу вариант только с отдельным парсингом таких значений

[rareMax]

Я в восторге от этой библиотеки. Такое ощущение что автор продумал все

 

Нашел как это сделать. Нужно всего лишь в нашем Record"е добавить атрибуты:

  TvtAntiVirusItems = Packed Record
  public
    [ALIAS('CAT-QuickHeal')]
    CAT_QuickHeal: TvtAntiVirusItem;
  End;

Изменено 23 декабря, 2015 пользователем Сысоев Максим