Delphi ClasseConecta 02

13
! " # $ %$ &’(% $ $ ) $ " * ! )! $ + )" #,’ - ./ 0 ) 1" 1 1 1 1 ! 2 )! $ 2 2 $ ) " 3 1" + ) ) + ! ) ) ) ) ) " 45)) &’%(1,630,#671( 8 &1%3 - 9%:;(;;(<1#0&#0"’%(9= &1&&’%( - 9>?@"><A"B"@9= &1,1> - 91-&C&%(9= &1,1@ - 9D-EF9= &1,1G - 99= &1,1H - 99= 45)8 II , JF9 ,1) - 9:30K19=

Transcript of Delphi ClasseConecta 02

Page 1: Delphi ClasseConecta 02

����������������� ������������������������

���������������������������� ���������������������������������������������������������� ����������������� ���������������������������������������� !�������������������������������"�� #������������������������ ��� ��������������� $������������������%� �$��������������������������������������������������������������������������������������������������������������������&'(%�������$����������������������� $���������������������������������������������� ��� ����� ���� ������� ��� ���� ��� )����� ����� ������������������ $����������������� ������"��� *�������!���������������������� ����������������������������� ����������� �� )��!�� ��� ����� ������� �� �� �������� �������$������+�����)����"���#,������'��� � -� � �� � ./� 0��� �� �� � ��� ��)������ ����1���������"���� ������������� ��������� �1������1������1������1������ ����� ���� � ��� �� �!�� ���� ��2�� �� ��� ���� ��� �� )��!�� ��� ����� �� ����� $��� ��������� � ��� ��������� ������2����� ����� ��2� ������ ����� ����� ��������������������������$�����������)�����������������������������������"�3�������������������������������1���������"���� ���� �������������������+�����)��������������������������)����������������������������������������� �����������������������+������������������!����������� �������������� )�������� �� ��� ������ ����� � ��� �)����� �� ���� ������������� ����)����������)� ���� ����������������������)������ ����� �������� � ���� ���� �� ����� ���� ������������������� ���"����45�)��)�&'%(1,630,#671�(�8�������&��1%������3����-�9%:;�����(��;��;�(<1#0&#0"'%(9=�������������&��1&�����&'%(������-�9>?@"><A"B"@9=�&��1,���������1�����>�-�9��1����-&C&%(�9=�������&��1,���������1�����@�-�9��D���-�����E�F9=�������&��1,���������1�����G�-�99=�������&��1,���������1�����H�-�99=���45����)8���II�,������������������������J��F9���,1���)� ��� ���������-�9:30K19=�

Page 2: Delphi ClasseConecta 02

��II�,���������0������0��13���� ������-�B=���0��1�����#��� ��-�>BB>=���0��1,��� ��(�����-�>BB@=���0��1%�,��� ��(�����-�>BBG=����0��1�����J��F�-�@BB>=�II�!���������������� �����������0��1L��%����������-�@BB@=���0��1L���������-�@BBG=���0��1���$��J��F�-�@BBH=���0��1L��0��������-�@BBM=�II�0�������L���0���������������������,+��������0����������0��1��� ����-�@BB<=�II�0�������#���������$������#����������0��10 � ���-�@BBN=�II�0�������#������0 � ������7���������0��1����������-�@BBA=�II�0�������#�������������������������� 6� ������� ���������� �� �� ������� ����� �� �$��������� ����������� ������ �� ������������ ���� �������� �� ������������ ���� !�� ��� &'(%"� ������ ����������� �� ����� ������������ ������� �� �� ������)����!�� ��� ����� ��� ������ ��� ���������������� �������������&'%(1,630,#671�(���)����������������������"�����������������������"��� ������)����������������������� ���� ������������������� �������� ��� ���O������� ������������ �� �� ���������������� ��:���� �,���������1%�)� ��������������F��,��� ��(�����

�#���������1%�)� ��������������F�,�������#���������

�������7�����,�������:-�B=��������P������0�������:-�0���F&��=��������3���(����%�����:-��,���������1%�)� �"%������3���=��������&�������%������:-�&��1&�����&'%(=��������&�����,��� �����:-��,���������1%�)� �"%������3���=�

�� Q��������������)����������������������������������� ������������������� ��������������)����)�����)����������������������"�� ����� �� � ��� �� �������� ����� $���� ���� ����������� ������������(R� ���������������������������� ����������������� � ��� � ��� �(R� ����� ���� �� ��� �� ��������������� ������ ��� 6������ ��������� ��� �%0� ��� %� �$��� ��������� ����� ��� ��:������,���������1%�)� �"%������3���:-&��1&�����&'%(S9:9S&��1%������3���=����,���������1%�)� �"L�����������:-��� �=��� �� � ������� � ��� � ��� �,���������1%�)� �� ��������������� ��)�����T�� ��� ������������ ��� ����� ��� ������ ��������%������3���%������3���%������3���%������3��������������!�����������������2������� �����L����������L����������L����������L��������������������������������������������������

Page 3: Delphi ClasseConecta 02

������ �� ��� ����� ��� ������� ��� ����"� Q� ��� �������������������������������������������������������2�������)�������������!��������������������%���(��3����������� ����������� ��������������������� ����������� ��� ����� �� ����� ����� �� #���F��#����&����"���II�,������������������������������������������������#,������'��� ",�������������� ����:�#%�� ���=������������������������%����������:������=�����������������������������������&�����:��������=�����������������������������$�������,�����=���II�������������2��������F���������%#���&'%(������������:-�������� ���=���45�)��)�&'%(1,630,#671�(8���������,���������1%�)� ����:-�#�(%������",�������� �=���������#���������1%�)� ���:-�#�(#���������",�������� �=���������,���������1%�)� �"%������3���� :-� &��1&�����&'%(� S�9:9S&��1%������3���=���������,���������1%�)� �"L�������������:-��� �=����������,���������1%�)� �"%�)� �#���������:-��#���������1%�)� �=���������,���������1%�)� �"�����", ���=���������,���������1%�)� �"�����"����&��1,���������1�����>�=���������,���������1%�)� �"�����"����&��1,���������1�����@�=���������#���������1%�)� �"%�)� ���������:-�#�,�����=���������#���������1%�)� �"�����"����9����1���������9�=���������#���������1%�)� �"�����"����9���1������9�=���������#���������1%�)� �"�����"����9��D���9�=���������7�����,�������:-�B=���������P������0�������:-�0���F&��=���������3���(����%�����:-��,���������1%�)� �"%������3���=���������&�������%������:-�&��1&�����&'%(=���������&�����,��� �����:-��,���������1%�)� �"%������3���=���45����)8����� ������������#,��'��� 0 ����������������������������,���������1%�)� �"����=���������,���������1%�)� ���:-��� =���������7�����,����:-�0��1�����#��� �=���������P������0����:-�90������������������� �"9=��������7����#,��'��� 0 �����",������9�9S���#�&����7�����,����S9�� .� 9� S��P������0����=���������=����=���=���=���=����

Page 4: Delphi ClasseConecta 02

�� 3�� ������� %����F� ���� �� )��!�� ��� )��� ����� ����� ����������� ��� � ��� ������ �� ������� ��� ���� !�� ����)��� ������������U��"�II�%����������������������������������������#,������'��� "%����F=�����������������������������$�������%����F=�����F��������,���������1%�)� �"����=�������45�)��)�&'%(1,630,#671�(8�����������#���������1%�)� �"����=�������45����)8��������7�����,����:-�B=��������P������0����:-�0���F&��=���� ������������#,��'��� 0 ����������������������������,���������1%�)� ���:-��� =���������7�����,����:-�0��1%�,��� ��(����=���������P������0����:-�90����������� �������&����������(��������%���"9=��������7����#,��'��� 0 �����",������9�9S���#�&����7�����,����S9�� .� 9� S��P������0����=���������=������=����=���=���=���=�����

3���������,������������������� �������)����������$������������ ��������������������������������2�������������������������� ��� ����� ��� $���"� � ���� ����� ��� ���� ��� �������������� ,��������� :-� #��� � ����� ��� �������� �������������� ��� ���� !��� ���� �������� � ��� ��� ��)���� ���V������2��������� ����������������)�����������������)��������$������ ��� �)����� �� ����� ������� ��� ����� ����� ��������"��

���� � ��� �� ����� ���� ��� ����� �� ������ PC&JL� �������������W06&����$������������������������)��������������X��

��� � 45�)��)�&'%(1,630,#671W06&8�� � � �����,���������1%�)� �",�������PF&� �:-#��=�

45����)8�6�:���������������� ��� ���������������������������������

�������!��)�����������������������)�����"��6����� ����� ����������� ���#,��'��� 0 ������

������������� ��!�"�����������������������������������#,������'��� ",������=�

Page 5: Delphi ClasseConecta 02

����������������������������F������,���������1%�)� �",���������:-�#��=������,���������:-�#��=���� ������������#,��'��� 0 ����������������������������,���������1%�)� ���:-��� =���������7�����,����:-�0��1�����#��� �=���������P������0����:-�90������������������� �"9=��������7����#,��'��� 0 �����",������9�9S���#�&����7�����,����S9�� .� 9� S��P������0����=���������=������=����=���=���=���=�����

6� ������� ���������� )��� �� ������� ������� ��� ���������������� ���� ������ �$������ ��� )��� � ��� �� ����!�� �����)��� ����������� !���������������������"�����������������������������������#,������'��� "���������=�����������������������������F������,���������1%�)� �",���������:-��� �=������,���������:-��� �=���� ������������#,��'��� 0 ����������������������������,���������1%�)� ���:-��� =���������7�����,����:-�0��1%�,��� ��(����=���������P������0���� :-� 90���� ��� %���������� ��� (����� ���%���"9=��������7����#,��'��� 0 �����",������9�9S���#�&����7�����,����S9�� .� 9� S��P������0����=���������=������=����=���=���=���=������

3���� ������� '��6�����,��� ��� ����� �� ������2��������������� ���� �� ����� �������� �� ������� ��� ���� !�������������������������������������������� ��������2������������ �� �� �������� ���� ��� ��� � ���� �� ��������� �������� ��!�������������)�����������������)�����!���������������� )��!�� �� �!�� ���� ����� ��� ����� ��!�"� &����� ���� �������������2����������� ���������������2�� ����� ����$�������,���������1%�)� ������������������������������������2�����

Page 6: Delphi ClasseConecta 02

������������ ��+����� ����� ��� �� ������ ��� +����� ���������"���45�)��)�&'%(1,630,#671�%68������������������������������#,������'��� "'��6�����,��� ���:�#�%6,���������=�45����)8�45�)��)�&'%(1,630,#671�(8������������������������������#,������'��� "'��6�����,��� ���:�#�(%������=�45����)8�45�)��)�&'%(1,630,#671W06&8������������������������������#,������'��� "'��6�����,��� ���:�#W,���������=�45����)8�������������������������������7� ��:-��,���������1%�)� �=����=���=���=���=������

6� ������� 0����(����� �������� �� ���� ����������� ��$������������!������ ����������� ��������������������2�� ��7�����,���������������� ���#�������'��� �������� ������������������������������ ���!�"�P���������������������������������������������������������������������2���"�

������������#,������'��� "0����(�����:�(�� ���=��������������������������������� ��:-���7�����,����-�B�=����=���=���=���=�����

6� ������� ����#�������� ����� �� ��+����� ����� ���� �� �����������U����������������!���������������������������������������=��������������������������������������#,������'��� "����#�������=������������������������������)��3����,����������$���� ��=���45�)��)�&'%(1,630,#671�%68�����II�3����������45����)8���45�)��)�&'%(1,630,#671�(8������#���������1%�)� �"&����#���������=���45����)8����=���=���=���=������

6� ������� ���$�#�������� ����� $�� ��� �������� ���� �������������#����������,���� �#�������"���

Page 7: Delphi ClasseConecta 02

������������������������������������#,������'��� "���$�#�������=���������������������������������)��3����,����������$���� ��=���45�)��)�&'%(1,630,#671�%68�����II�3����������45����)8���45�)��)�&'%(1,630,#671�(8������#���������1%�)� �",�����=���45����)8����=��

6� ������� ,���� �#�������� �� ������ ����� ���������� ���������!�� �������� ��������� �� 7� ���E� ����� �� �������� ����������������"������������#,������'��� ",���� �#�������=������������)��3����,����������$���� ��=���45�)��)�&'%(1,630,#671�%68�����II�3����������45����)8����45�)��)�&'%(1,630,#671�(8������#���������1%�)� �"7� ���E=���45����)8����=���=���=���=������

,��� ��� ������� ������������ �� ������ ������ �����2������ ��� ������ ��� ������ ��� �� �� �������� ��� �� �$�� �!���)���2� ����� �������� ���� ������� ��� �+����� )����� ������������ �� ��� ����� ���������� �� )����� � ���� �������T�������� ��������)��������������� ������U�� �������������� ������ ��� � ��� ��� ���� !�� ��� &'(%� ������������� �������������"�

J������� ���������������������������������� !��������������������!������� $������$��)�������������)�������������� ��� � ��� ��� ����� #J��F,���� �� #'������J��F� ������$�� �� ����� ��������� ����� � ��"� &���� �� ������� ����+�����)�������������)�����������������������)������������ %���P�� �"� Q� �� ����� ��)������� ��� )������ �� ����� ���������������� ��)�����)������������!���������������������� �������������!�������������)����)���������������"�

�����

Page 8: Delphi ClasseConecta 02

��������� ������� ��� ��)������ ���������������� �$��<�

���������� ����������:��

�1����������./���������)����!������ ���:�#���F,�����#�������J��F��#�������'��� =�

��1)��������./�)��T��������=���1������./�� ���������������������2����������������2�������� �������������������2�����������=���1��� ���1��)���./������������������ ��=�

��

������������1, ��=��������������Y���>����9Y���>"��9�4����>8�����1�������������9"";"";, ��;�1���������"��9�����1)�����������9"";"";�1)�������"��9�����1���������9"";"";, ��;�1�����"��9�����1��� ����9"";"";, ��;�1��� "��9�����1��)������9"";"";, ��;�1��)��"��9=��457�Z"��8������������� �������"������ ���=������ �������",����������#����>������>�=������ �������"7�=����"����������������

Page 9: Delphi ClasseConecta 02

����� ���� 2��������������������� ���:��

����� ,+�����)��������)���2����������:������Y���>=�������)���������K����D�� P������ &FY�� �� *�������� , ���� '���$����,����� ����������%�� ���� %(�� &��,�� �� �1����������� 3D &���(���� '�����%('�������,��,�� ��(����=���F�����#����>�-�� ��#����������L��� >:�#L��� =�����(����1,������:�#(����=�����(����1%��������:�#(����=�����%('���>:�#%('���=�

Page 10: Delphi ClasseConecta 02

����(����1����J��F:�#(����=�����(����1���$�J��F:�#(����=�����P���>:�#P���=�����L��� @:�#L��� =�����(����10�������:�#(����=�����0���1��������:�#0���=�����L��� G:�#L��� =�����0�1K$���:�#0���=�����L��� H:�#L��� =�����,����(� >:�#,����(� =�����%&1[�������:�#%���&����=������(%1(�������:�#�(%������=������(#1(�������:�#�(#���������=�����JC1,��[�������:�#�(%���&��=�����(����>:�#(����=������(J��F>:�#�(J��F=�����3D &���(��>:�#3D &���(��=�����(����@:�#(����=��������������(����1,������, ��E�&�����:�#6������=��������������(����1%��������, ��E�&�����:�#6������=��������������(����1����J��F, ��E�&�����:�#6������=��������������(����1���$�J��F, ��E�&�����:�#6������=��������������(����10�������, ��E�&�����:�#6������=��������������,����(� >,$�����&�����:�#6������=������������������\�F%�D��&�����:�#6�����=�����\�F:�K���=�������&$�)�:�#&$�)�&�����=��������������(����>, ��E�&�����:�#6������=��������������(����@, ��E�&�����:�#6������=���������������4������������ ��������8����� �������PF&'%(���:�#,������'��� =�����PFJ��F��:�#'������J��F=������=������������>:�#����>=����� ������������457�Z"�)�8�����������#����>"(����1,������, ��E�&�����:�#6������=�����������F�����PF&'%(�:-�#,������'��� ",����������������=�����PF&'%(",������=������)�PF&'%(",����������$����������3D &���(��>"&��� �#� �� :-� 9,��������� ��� 9� S�PF&'%("3���(����%���=�

Page 11: Delphi ClasseConecta 02

������PF&'%("����#�������=���� ��������0:#,��'��� 0 ����������������&$�D������0"P�����=������=����=�����������#����>"(����1%��������, ��E�&�����:�#6������=���������PF&'%("%��������=����)�3���PF&'%(",����������$��������3D &���(��>"&��� �#� �� :-� 9%����������� ��� 9� S�PF&'%("3���(����%���=����=�����������#����>"(����1����J��F, ��E�&�����:�#6������=������������)�PF&'%(�-��� ��$����������������&$�D������9������,�����������(��������������]9�=��������� ��=��������=�������)�3���PF&'%(",����������$����������������&$�D������9������,�����������(��������������]9�=��������� ��=��������=���PFJ��F��:-�#'������J��F",������PF&'%(�9�1��������9�=���PFJ��F"���&JL�P���>"#� ��=����)�PFJ��F"0����,�� ����$�����������������PFJ��F"����=������%('���>"%���&�����:-�PFJ��F"����%���&��,�������=�������=����=�����������#����>"(����1���$�J��F, ��E�&�����:�#6������=���������PFJ��F"���$�=����=�����������#����>"(����10�������, ��E�&�����:�#6������=������������)�PF&'%(�-��� ��$����������������&$�D������9������,�����������(��������������]9�=��������� ��=��������=�������)�3���PF&'%(",����������$����������������&$�D������9������,�����������(��������������]9�=��������� ��=��������=�

Page 12: Delphi ClasseConecta 02

��PFJ��F� � :-�#'������J��F",������PF&'%(�#����0���1��������"#� ���=����)�PFJ��F"0����,�� ����$�����������������PFJ��F"�������&JL'����=������PFJ��F"����=������%('���>"%���&�����:-�PFJ��F"����%���&��,�������=�������=����=�����������#����>",����(� >,$�����&�����:�#6������=�����������)��,����(� >"�������� �^/�B���$����������*��D���1P��� ��,����(� >"����_,����(� >"�������� `�=�����=�����������#����>"����\�F%�D��&�����:�#6�����=�����\�F:�K���=���&$�)�:�#&$�)�&�����=����������)�\�F�-�@N��$���� ��=����=�����������#����>"(����>, ��E�&�����:�#6������=��������:�#J��F,���=������������)�PF&'%(�-��� ��$����������������&$�D������9������,�����������(��������������]9�=��������� ��=��������=�������)�3���PF&'%(",����������$����������������&$�D������9������,�����������(��������������]9�=��������� ��=��������=��������:-�#J��F,���",������PF&'%(�=������"���&JL�9&� ����Z�)�������1�������9�9���� �� 1�������-�9S���������9BB>9��=������"����=����%('���>"%���&�����:-���"����%���&��=����=�����������#����>"(����@, ��E�&�����:�#6������=���������PF&'%("���$�#�������=����=�����"��

Page 13: Delphi ClasseConecta 02

� ,��� ���� � ��� �� �� ��U�� � ���$����� ���� )�������)������� ��� �� ���������� ��� �� �$�"� 6� ����������� ��� ������� $���������������V�)���������������������������������� )����� �� ���� !�� ���� ��� &'(%�� ���� ��2� )����� �������!�������� ��� � ��� ��� ����� ��� ����������� ��� ������ �����.������ ��� ����� ���� ������ ���� �� ������ �������� ����������� �� �� �� �� �� ��� �� ��E� )����� ��� %(,����� ������!�����)�������������������.���������������������������� !�� ������������ �� � ��� ������� � ����2� ������ ���� ��������������� �������"��

P�� ��� )������ ������ ����� ����� ��� � ��� �����#J��F,���"��

��J�������������������+�������������������]�

��#������%�������7����������7��� ���,������������7��� ���,������������7��� ���,������������7��� ���,����������������$���:IIDDD"���� �"���"����