MVCBr.Observer.pas

unit MVCBr.Observer;
{ *************************************************************************** }
{ }
{ MVCBr é o resultado de esforços de um grupo }
{ }
{ Copyright (C) 2017 MVCBr }
{ }
{ amarildo lacerda }
{ http://www.tireideletra.com.br }
{ }
{ }
{ *************************************************************************** }
{ }
{ Licensed under the Apache License, Version 2.0 (the "License"); }
{ you may not use this file except in compliance with the License. }
{ You may obtain a copy of the License at }
{ }
{ http://www.apache.org/licenses/LICENSE-2.0 }
{ }
{ Unless required by applicable law or agreed to in writing, software }
{ distributed under the License is distributed on an "AS IS" BASIS, }
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
{ See the License for the specific language governing permissions and }
{ limitations under the License. }
{ }
{ *************************************************************************** }

interface

uses System.Json, MVCBr.Interf;

Type

  TMCVBrObserver = class(TInterfacedObject, IMVCBrObserver)
  public
    function This: TObject; virtual;
    procedure Update(AJsonValue: TJsonValue; var AHandled: boolean); virtual;
  end;

implementation

{ TMCVBrObserver }

function TMCVBrObserver.This: TObject;
begin
  result := self;
end;

procedure TMCVBrObserver.Update(AJsonValue: TJsonValue; var AHandled: boolean);
begin

end;

end.