1. Pascal / Говнокод #23147

    −1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    TServerThread = class(TThread)
      private
        procedure DoReadData;
      protected
        ThreadOwner: TIPCServer;
        procedure Execute; override;
        constructor Create(AThreadOwner: TIPCServer);
        destructor Destroy; override;
      public
      end;

    Мы кодили, кодили и наконец накодили!

    Запостил: antipattern, 27 Июня 2017

    Комментарии (3) RSS

    • Накодил тебе по-за гландами, проверь.
      Ответить
      • Здесь сидел некий Лев Гландау - не твоя учётка часом?
        Ответить
    • @@constructor Create(AThreadOwner: TIPCServer);
      destructor Destroy; override;

      Зона видимости в данном случае не играет роли, всё равно вызовется деструктор в наследнике.
      Ответить

    Добавить комментарий