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

    • ava guest 12.03.2016 11:23 # 0

      если это реальный проект, то можно закрывать контору.
      Ответить

      • ava guest 12.03.2016 17:48 # 0

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

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