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

    −50

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    ...
    TMAINForm = class (TForm)
    ...
      N50:TMenuItem;
      N51:TMenuItem;
      N52:TMenuItem;
    ...
    
    end;
    
    implementation
    
    {$include ../common/common_main.inc}

    После 10 лет развития проекта возникла потребность вынести куда-то повторяющийся код.

    Запостил: tucvbif, 24 Января 2016

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

    • Забыл написать: в описании класса содержатся декларируются методы N50Click, N51Click и т.д., а в inc-файле — реализуются.
      Ответить

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