TJSONToPascal

type TJSONToPascal = class(TComponent)

protected

  procedure AddSemiColonToLastLine;

  procedure Indent;

  procedure Undent;

  procedure AddLn();

  procedure AddIndented();

  function CreatePropertyMap; virtual;

  function GetJSONData(); virtual;

  function IsDateTimeValue(); virtual;

  function GetDefaultParentName;

  function GetPropertyTypeName(); virtual;

  function PathToTypeName(); virtual;

  function AddToPath();

  class function CleanPropertyName();

  function GetPropertyName();

  function GenerateAssign();

  function GenerateAssignDelphi();

  procedure GenerateCreateArray();

  procedure GenerateSaveArray();

  procedure GenerateClearArray();

  procedure GenerateCreateObjectfpJSON();

  procedure GenerateLoadJSONDelphi();

  procedure GenerateLoadJSONfpJSON();

  procedure GenerateSaveJSONDelphi();

  procedure GenerateSaveJSONfpJSON();

  function GenerateArrayDeclaration(); virtual;

  procedure GenerateObjectDeclaration(); virtual;

  procedure GenerateArrayImplementation(); virtual;

  procedure GenerateObjectImplementation(); virtual;

  function GetExtraUnitNames; virtual;

  procedure ClearGeneratedTypes; virtual;

  procedure GenerateInterfaceHeader; virtual;

  procedure GenerateDeclaration(); virtual;

  procedure GenerateImplementationHeader; virtual;

  procedure GenerateImplementation(); virtual;

  procedure GenerateImplementationEnd; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Execute;

  property JSONData: TJSONData; [rw]

  property JSONStream: TStream; [rw]

published

  property Active: Boolean; [rw]

  property Options: TJSONToPascalOptions; [rw]

  property JSON: TJSONStringType; [rw]

  property Code: TStrings; [rw]

  property PropertyMap: TPropertyMap; [rw]

  property DestUnitName: string; [rw]

  property DefaultParentName: string; [rw]

  property IndentSize: Integer; [rw]

  property ExtraUnitNames: string; [rw]

  property PropertyTypeSuffix: string; [rw]

  property FieldPrefix: string; [rw]

  property ObjectConstructorArguments: string; [rw]

  property ToplevelObjectClassName: string; [rw]

end;

TJSONToPascal

TObject