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

    +144

    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
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    Unit Web;
    
    interface
    
    uses System, System.Drawing, System.Windows.Forms;
    
    var f: Form;
    
    type
      WebBro = class(Form)
        procedure button1_Click(sender: Object; e: EventArgs);
      {$region FormDesigner}
      private
        {$resource Web.WebBro.resources}
        button1: Button;
        webBrowser1: WebBrowser;
        {$include Web.WebBro.inc}
      {$endregion FormDesigner}
      public
        constructor;
        begin
          InitializeComponent;
        end;
      end;
    
    implementation
    
    Procedure FindForm();
    begin
      var i:=0;
      while i < Application.OpenForms.Count do
        begin
          f := Application.OpenForms.Item[i];
          if f.Name = 'TwiGen_News' then exit
            else inc(i);
        end;
    end;
    
    procedure WebBro.button1_Click(sender: Object; e: EventArgs);
    begin
      WebBro.ActiveForm.Hide();
      FindForm;
      f.Show();
    end;
    
    end.
    
    //----------------
    
    Unit Unit1;
    
    interface
    
    uses System, System.Drawing, System.Windows.Forms, Web;
    
    var NewsForm: WebBro;
    
    type
      TwiGen_News = class(Form)
        procedure News_Click(sender: Object; e: EventArgs);
      {$region FormDesigner}
      private
        {$resource Unit1.TwiGen_News.resources}
        LogIn: Button;
        News: Button;
        Reg: Button;
        {$include Unit1.TwiGen_News.inc}
      {$endregion FormDesigner}
      public
        constructor;
        begin
          InitializeComponent;
        end;
      end;
    
    implementation
    
    procedure TwiGen_News.News_Click(sender: Object; e: EventArgs);
    begin
      TwiGen_News.ActiveForm.Hide();
      NewsForm := new WebBro;
      NewsForm.Show;
    end;
    
    end.

    Друг писал, но мне он говорил, что переписывал говнокод.
    Pascal ABC.NET.

    Запостил: Janycz, 08 Июня 2015

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

    • А потом он не мог понять, почему у него 'Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта.'
      Ответить
    • Pascal ABC.NET сам по себе - лажа, жаль, что не все это понимают.
      Procedure FindForm();
      begin
        var i:=0;
        while i < Application.OpenForms.Count do
          begin
            f := Application.OpenForms.Item[i];
            if f.Name = 'TwiGen_News' then exit
              else inc(i);
          end;
      end;


      до такого даже я не извращался. Каков смысл сего кода??
      Ответить
      • Должно искать форму с названием TwiGen_News
        Ответить
        • procedure WebBro.button1_Click(sender: Object; e: EventArgs);
          begin
            WebBro.ActiveForm.Hide();
            FindForm; // наверно, для какого-то особого гламура, хз.
            f.Show();
          end;
          Ответить
      • Чукча не читатель, чукча писатель?
        Ответить
    • Паскалепроблеммы.
      Ответить
    • Блядь, какие-то некроманты еще на поскале пишут.
      Ответить
    • Школота
      Ответить

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