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

    −51

    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
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    if (class_name='Tnabl_Form') then
            begin
            nabl_Form:=Tnabl_Form.create(Application);
            with nabl_Form do
            begin
            Caption := 'Наблюдение '+dop_caption;
            tool_btn_task_bar:=
                    create_tb(1,Handle,'Наблюдение','Наблюдение '+dop_caption);
            Name:=tool_btn_task_bar.Name;
            about_kart_Frame1.id_med_kart:=id_parent;
    
            end;
            nabl_Form.id_doc:=id_doc;
            nabl_Form._init;
            Result:=nabl_Form;
            end;
                     
      if class_name='To_spiski_5201_Form' then 
            begin
            o_spiski_5201_Form:=To_spiski_5201_Form.create(Application);
            o_spiski_5201_Form.FormStyle:=fsMDIChild;
            o_spiski_5201_Form.tool_btn_task_bar:=
                    create_tb(0, o_spiski_5201_Form.Handle,'Списки больных','Списки больных'+dop_caption);
            o_spiski_5201_Form.Name:=o_spiski_5201_Form.tool_btn_task_bar.Name;
            result:=o_spiski_5201_Form;
            end;
    
    if (class_name='Td_diagn_Form') then
            begin
            d_diagn_Form:=Td_diagn_Form.create(Application);
            with d_diagn_Form do
            begin
            Caption := 'Постановка диагноза '+dop_caption;
            tool_btn_task_bar:=
                    create_tb(1,Handle,'Диагноз','Постановка диагноза '+dop_caption);
            Name:=tool_btn_task_bar.Name;
            about_kart_Frame1.id_med_kart:=id_parent;
            end;
            d_diagn_Form.id_doc:=id_doc;
            d_diagn_Form._init;
            Result:=d_diagn_Form;
            end;
    //И ещё около 600 строк в том же духе

    Наследование? Полиморфизм? ООП? Это слишком сложно!

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

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

    • если это реальный проект, то можно закрывать контору.
      Ответить
      • Ну да, давайте закроем больницу из-за того что там на каком-то терминале говнопрограмма стоит.
        Ответить

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