interface

uses
  System.Classes, System.SysUtils;

type
   TCabecalho = class(TObject)
      private
         Flogin      : String;
         FSenha      : String;
         Fintegracao : String;
         Fcodlab     : String;
         FVersao     : String;
         FDataHora   : String;
         FSoftware   : String;
         FOperador   : String;
      public
         property login      : String read FLogin      write FLogin;
         property senha      : String read FSenha      write FSenha;
         property integracao : String read Fintegracao write Fintegracao;
         property codlab     : String read Fcodlab     write Fcodlab;
         property versao     : String read FVersao     write FVersao;
         property datahora   : String read FDataHora   write FDataHora;
         property software   : String read FSoftware   write FSoftware;
         property operador   : String read FOperador   write FOperador;
   end;

   TPaciente = class(TObject)
      private
         Fcodigo_lis      : String;
         FNome            : String;
         Fdata_nascimento : String;
         FSexo            : String;
         Ftipo_documento  : String;
         FDocumento       : String;
         FEndereco        : String;
         FCidade          : String;
         FEstado          : String;
      public
         property codigo_lis      : String read Fcodigo_lis      write Fcodigo_lis;
         property nome            : String read FNome            write FNome;
         property data_nascimento : String read Fdata_nascimento write Fdata_nascimento;
         property sexo            : String read FSexo            write FSexo;
         property tipo_documento  : String read Ftipo_documento  write Ftipo_documento;
         property documento       : String read FDocumento       write FDocumento;
         property endereco        : String read FEndereco        write FEndereco;
         property cidade          : String read FCidade          write FCidade;
         property estado          : String read FEstado          write FEstado;
   end;

   TExames = class(TObject)
      private
         Fcodigo_lis : String;
         FCodigo     : String;
         FDescricao  : String;
      public
         property codigo_lis : String read Fcodigo_lis write Fcodigo_lis;
         property codigo     : String read FCodigo     write FCodigo;
         property descricao  : String read FDescricao  write FDescricao;
   end;


   TAmostras = class(TObject)
      private
         Fcodigo_lis : String;
         FCodigo     : String;
         FDescricao  : String;
         FExames     : TArray<TExames>;
      public
         property codigo_lis : String       read Fcodigo_lis write Fcodigo_lis;
         property codigo     : String       read FCodigo     write FCodigo;
         property descricao  : String       read FDescricao  write FDescricao;
         property exames     : TArray<TExames> read FExames     write FExames;
   end;


   TSolicitacoes = class(TObject)
      private
         Fcodigo_lis : String;
         FPaciente   : TPaciente;
         FObservacao : String;
         FData       : String;
         FCrm        : String;
         FAmostras   : TArray<TAmostras>;
      public
         property codigo_lis : String         read Fcodigo_lis write Fcodigo_lis;
         property paciente   : TPaciente      read FPaciente   write FPaciente;
         property observacao : String         read FObservacao write FObservacao;
         property data       : String         read FData       write FData;
         property crm        : String         read FCrm        write FCrm;
         property amostras   : TArray<TAmostras> read FAmostras   write FAmostras;
   end;


   TRemessa = class(TObject)
      private
         FCabecalho    : TCabecalho;
         FSolicitacoes : TArray<TSolicitacoes>;
      public
         property cabecalho    : TCabecalho         read FCabecalho    write FCabecalho;
         property solicitacoes : TArray<TSolicitacoes> read FSolicitacoes write FSolicitacoes;

         function ToString : String; override;
   end;


implementation

{ TRemessa }

function TRemessa.ToString: String;
var
   W_StringList : TStringList;
   W_A, W_B, W_C : Integer;
begin

   Result := '';
   W_StringList := TStringList.Create;

   try

      W_StringList.Add('Cabecalho');
      W_StringList.Add('    Login: '      + Self.cabecalho.login);
      W_StringList.Add('    Senha: '      + Self.cabecalho.senha);
      W_StringList.Add('    Integração: ' + Self.cabecalho.integracao);
      W_StringList.Add('    CodLab: '     + Self.cabecalho.codlab);
      W_StringList.Add('    Versão: '     + Self.cabecalho.versao);
      W_StringList.Add('    DataHora: '   + Self.cabecalho.datahora);
      W_StringList.Add('    Sofware: '    + Self.cabecalho.software);
      W_StringList.Add('    Operador: '   + Self.cabecalho.operador);

      W_StringList.Add('Solicitações');
      for W_A := 0 to High(Self.solicitacoes) do begin
         W_StringList.Add('   Solicitação: '  + Self.solicitacoes[W_A].codigo_lis);
         W_StringList.Add('      Paciente');
         W_StringList.Add('         Código: ' + Self.solicitacoes[W_A].paciente.codigo_lis);
         W_StringList.Add('         Nome: '   + Self.solicitacoes[W_A].paciente.nome);
         W_StringList.Add('         Data de Nascimento: ' + Self.solicitacoes[W_A].paciente.data_nascimento);
         W_StringList.Add('         Sexo: '               + Self.solicitacoes[W_A].paciente.sexo);
         W_StringList.Add('         Tipo de Documento: '  + Self.solicitacoes[W_A].paciente.tipo_documento);
         W_StringList.Add('         Numero: '   + Self.solicitacoes[W_A].paciente.documento);
         W_StringList.Add('         Endereço: ' + Self.solicitacoes[W_A].paciente.endereco);
         W_StringList.Add('         Cidade: '   + Self.solicitacoes[W_A].paciente.cidade);
         W_StringList.Add('         UF: '       + Self.solicitacoes[W_A].paciente.estado);
         W_StringList.Add('      Observação: '  + Self.solicitacoes[W_A].observacao);
         W_StringList.Add('      Data: '        + Self.solicitacoes[W_A].data);
         W_StringList.Add('      CRM: '         + Self.solicitacoes[W_A].crm);


         W_StringList.Add('      Amostras');
         for W_B := 0 to High(Self.solicitacoes[W_A].amostras) do begin

            W_StringList.Add('         Código_lis: ' + Self.solicitacoes[W_A].amostras[W_B].codigo_lis);
            W_StringList.Add('         Código: '     + Self.solicitacoes[W_A].amostras[W_B].codigo);
            W_StringList.Add('         Descrição: '  + Self.solicitacoes[W_A].amostras[W_B].descricao);

            W_StringList.Add('         Exames');
            for W_C := 0 to High(Self.solicitacoes[W_A].amostras[W_B].exames) do begin
               W_StringList.Add('            Código_lis: ' + Self.solicitacoes[W_A].amostras[W_B].exames[W_C].codigo_lis);
               W_StringList.Add('            Código: '     + Self.solicitacoes[W_A].amostras[W_B].exames[W_C].codigo);
               W_StringList.Add('            Descrição: '  + Self.solicitacoes[W_A].amostras[W_B].exames[W_C].descricao);
            end;
            W_StringList.Add(' ');
         end;

      end;
      Result := W_StringList.Text;
   finally
      FreeAndNil(W_StringList);
   end;

end;

end.