TBaseObject

type TBaseObject = class(TObject)

protected

  procedure MarkPropertyChanged();

  function IsDateTimeProp();

  function DateTimePropType();

  procedure ClearProperty(); virtual;

  procedure SetBooleanProperty(); virtual;

  procedure SetFloatProperty(); virtual;

  procedure SetInt64Property(); virtual;

  procedure SetQWordProperty(); virtual;

  procedure SetIntegerProperty(); virtual;

  procedure SetStringProperty(); virtual;

  procedure SetArrayProperty(); virtual;

  procedure SetObjectProperty(); virtual;

  procedure SetSetProperty(); virtual;

  procedure SetEnumProperty(); virtual;

  function GetBooleanProperty(); virtual;

  function GetIntegerProperty(); virtual;

  function GetInt64Property(); virtual;

  function GetQwordProperty(); virtual;

  function GetFloatProperty(); virtual;

  function GetStringProperty(); virtual;

  function GetSetProperty(); virtual;

  function GetEnumeratedProperty(); virtual;

  function GetArrayProperty(); virtual;

  function GetObjectProperty(); virtual;

  procedure ClearChildren(); virtual;

  class function ClearChildTypes; virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure StartRecordPropertyChanges;

  procedure ClearPropertyChanges;

  procedure StopRecordPropertyChanges;

  function IsPropertyModified();

  class function AllowAdditionalProperties; virtual;

  class function GetTotalPropCount; virtual;

  class function GetCurrentPropCount; virtual;

  class function GetParentPropCount; virtual;

  class function ExportPropertyName(); virtual;

  class function CleanPropertyName();

  class function CreateObject();

  class procedure RegisterObject;

  class function ObjectRestKind; virtual;

  procedure LoadPropertyFromJSON(); virtual;

  function SavePropertyToJSON(); virtual;

  procedure LoadFromJSON(); virtual;

  procedure SaveToJSON();

  property ObjectOptions: TObjectOptions; [rw]

  property additionalProperties: TJSONObject; [r]

end;

TBaseObject

TObject