Quick.Serializer.Intf.pas 561 B

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