unit VK.Entity.Doc.Save;

interface

uses
  Generics.Collections, Rest.Json, VK.Entity.Common, VK.Entity.AudioMessage,
  VK.Entity.Doc, VK.Entity.Graffiti;

type
  TVkDocSaved = class(TVkEntity)
  private
    FType: string;
    FAudio_message: TVkAudioMessage;
    FDoc: TVkDocument;
    FGraffiti: TVkGraffiti;
  public
    property &Type: string read FType write FType;
    property AudioMessage: TVkAudioMessage read FAudio_message write FAudio_message;
    property Doc: TVkDocument read FDoc write FDoc;
    property Graffiti: TVkGraffiti read FGraffiti write FGraffiti;
    destructor Destroy; override;
  end;

implementation

{TVkDocSaved}

destructor TVkDocSaved.Destroy;
begin
  {$IFNDEF AUTOREFCOUNT}
  if Assigned(FAudio_message) then
    FAudio_message.Free;
  if Assigned(FDoc) then
    FDoc.Free;
  if Assigned(FGraffiti) then
    FGraffiti.Free;
  {$ENDIF}
  inherited;
end;

end.

