Quick.Serializer.Intf.pas 562 B

12345678910111213141516171819202122232425
  1. unit Quick.Serializer.Intf;
  2. interface
  3. uses
  4. SysUtils,
  5. {$IFNDEF FPC}
  6. rtti;
  7. {$ELSE}
  8. Rtti,
  9. rttiutils;
  10. {$ENDIF}
  11. type
  12. ISerializer = interface
  13. ['{CA26F7AE-F1FE-41BE-9C23-723A687F60D1}']
  14. function JsonToObject(aType: TClass; const aJson: string): TObject; overload;
  15. function JsonToObject(aObject: TObject; const aJson: string): TObject; overload;
  16. function ObjectToJson(aObject : TObject; aIndent : Boolean = False): string;
  17. function ValueToJson(const aValue : TValue; aIndent : Boolean = False) : string;
  18. end;
  19. implementation
  20. end.