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

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

    • ava Janycz 08.06.2015 20:00 # +2

      А потом он не мог понять, почему у него 'Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта.'
      Ответить

    • ava Stertor 08.06.2015 20:04 # +1

      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;


      до такого даже я не извращался. Каков смысл сего кода??
      Ответить

      • ava Janycz 08.06.2015 20:09 # 0

        Должно искать форму с названием TwiGen_News
        Ответить

        • ava Stertor 08.06.2015 22:05 # +1 

          procedure WebBro.button1_Click(sender: Object; e: EventArgs);
begin
  WebBro.ActiveForm.Hide();
  FindForm; // наверно, для какого-то особого гламура, хз.
  f.Show();
end;
          Ответить

      • ava kegdan 08.06.2015 20:10 # −2

        Чукча не читатель, чукча писатель?
        Ответить

    • ava Pyriandr 09.06.2015 00:52 # 0

      Паскалепроблеммы.
      Ответить

    • ava guest 09.06.2015 01:28 # 0

      Блядь, какие-то некроманты еще на поскале пишут.
      Ответить

    • ava guest 12.03.2016 13:33 # 0

      Школота
      Ответить

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