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

    +95.3

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,
      IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
      IdTCPClient, IdHTTP, ExtCtrls, ComCtrls, Grids, ValEdit,IniFiles;
    
    
    
    type
      TForm1 = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        Button1: TButton;
        IdHTTP1: TIdHTTP;
        IdCookieManager1: TIdCookieManager;
        ListView1: TListView;
        Label1: TLabel;
        Label2: TLabel;
        ListBox1: TListBox;
        GroupBox1: TGroupBox;
        Edit1: TEdit;
        Edit2: TEdit;
        Button2: TButton;
        GroupBox2: TGroupBox;
        Button3: TButton;
        Edit3: TEdit;
        Edit4: TEdit;
        TabSheet3: TTabSheet;
        Memo1: TMemo;
        Memo2: TMemo;
        Button4: TButton;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Button5: TButton;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure ListBox1Click(Sender: TObject);
        procedure TabSheet2Show(Sender: TObject);
        procedure Edit1KeyUp(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Edit3Change(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
    
    
      private
    
        { Private declarations }
      public
    
        { Public declarations }
      end;
    
    type
      TMyThread = class
      private
        FHandle: THandle;
        FID: Cardinal;
        function Execute: DWord; stdcall;
      public
        constructor Create;
        destructor Destroy; override;
      end;
    
    
    var
      Form1: TForm1;
    
    
      edit_nom:integer;
      acc_list:tstringlist;
      thread_count:integer;
    
    
        
    implementation
    
    {$R *.dfm}
    
    
    
    
    
    function findinhtml(text:string;first:string;dop1:string;dop2:string;dop3:string;dop4:string;dop5:string;dop6:string;first_end:string;last:string):string;
    var
    a,b,c:string;
    begin
    a:=copy(text,pos(first,text)+length(first)+1,1000);
    if dop1<>'' then a:=copy(a,pos(dop1,a)+length(dop1),length(a));

    Запостил: pppd, 14 Декабря 2009

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

    • за одно объявление переменных надо руки отрубать
      Ответить
      • Так делается при добавлении стандартно. А оставлять такое дефолтное безобразие, разумеется, не стоит...
        Ответить
    • Много текста.
      Ответить
      • Что-то вы совсем обленились. Даже читать не хотят... :(
        Ответить
    • Только не говорите, что Дельфи - синоним говнокода...
      Ответить
      • А зачем говорить? Все и так знают это.
        Ответить
        • нифига подобного.
          говнокодить можно на любом языке. В отличие от си-подобных у паскаля лично для меня синтаксис более лего-читаемый
          Ответить
          • Давай еще разведем холивар на тему что круче, С++ или Делфи.
            Ответить
            • Давай.
              С++ - это счастье.
              Дельфи - слышал про Дельфийские игры? Это игры инвалидов. Совпадение не случайно.
              Ответить
              • это не так
                Ответить
              • ты идиот

                Дельфийские игры — конкурсы, фестивали, выставки и презентации в различных областях искусства.
                Ответить
            • делфи круче в написании сложных гуевых прог.
              Ответить
              • показать все, что скрытоАга, а еще он крут для написания осей =) Для GUI программ лучше всего использовать C#. А делфи и паскаль подойдет только для обучения в школе, и то лучше было если бы в школах учили QBasic - от него пользы больше.
                Ответить
                • сарказм здесь неуместен. для запуска программы написанной на C# нужен .NET, + к тому оно будет медленнее работать(субъективно)
                  Ответить
                  • Ах, ну да. .NET сейчас большая редкость ;) К тому же программы которые написаны на C# (да и вообще на .NET языках) могут запускаться на *nix и Mac OS. А насчет "медленнее работать", то это на существенно. Посмотри процессоры которые стоят у обычных юзверей, 2 - 3 Гц( в среднем), и память 1-2Гб, а ты говоришь про какие то доли секунды, которые никто даже не заметит. А если тебе важна скорость работы программы, то Assembler к твоим услугам.
                    Ответить
                    • не рассказывай мне про шарп, и про то, где и как запустится - я это все знаю :)
                      Ответить
              • Для GUI лучше QT или WX использовать(SWT +Java) - так кросплатформенней:)
                C++ - великий старейшина программирования,
                Паскаль (в т.ч делфя) - мертвая лошадь
                Ответить
                • т.е свт - как 1 из кросплатформенных вариантов гуя для явы, я хотел сказать))
                  Ответить
                • Хромая лошадь.
                  Ответить
                • в плюсах без этих дурацких & и * и ** далеко не уйдешь, кроме того, By default отсутствует тип string + еще много всякого гемора.

                  Простите, но я не люблю плюсы, и ненадо мне доказывать что плюсы рулят. Для меня рулят C# и Delphi(раньше)
                  Ответить
                  • без * в плюсах прожить можно и вполне нормально. А вот в дельфи вместо & используются шапочки. string присутствует в плюсах еще со стандарта C99. Про всякий гемор - STL это часть языка
                    Ответить
        • Вот это уж ты зря. На Дельфи можно писать как Пушкин, и в то же время можно и на C писать так что вырви глаз :D
          Ответить
    • кукареку
      Ответить
    • Не пойму я что-то.
      >function Execute: DWord; stdcall;
      Нахрен здесь stdcall;?
      >destructor Destroy; override;
      Нах сдесь override;?
      Ответить
      • >function Execute: DWord; stdcall;
        Нахрен здесь stdcall;?

        действительно зачем?


        >destructor Destroy; override;
        Нах сдесь override;?

        Destroy всегда override'ить надо (смотри TObject)
        Ответить
        • 2. школота детектед! деструктор Destroy виртуален по-определению.
          Ответить
          • Я так понимаю для деструктора Destroy не нужно писать override, а для деструкторов с другим названием, например DestroyMe, - нужно?
            Ответить
    • а потоки лучше делать через класс тред или через крейт тред?? с кем проще работат ьв плане синхронизации и вообще стабильности??
      Ответить
    • Нафиг сдесь свой класс потоков. Чем стандартный класс не угодил?
      Ответить
      • надо было потом сделать конструктор
        Ответить
    • >text:string;first:string;dop1:string;do p2:string;dop3:string;dop4:string;dop5:s tring;dop6:string;first_end:string;last: string
      Ыыы.
      Ответить
    • добротное такое, попахивающие говнище
      Ответить
    • жуткий говнокод, индусы не подвели

      капча солидарна 7447
      Ответить
    • Кодегенератор дельфи способствует индусизму:
      PageControl1: TPageControl;
      TabSheet1: TTabSheet;
      TabSheet2: TTabSheet;
      Button1: TButton;
      IdHTTP1: TIdHTTP;
      ....
      ....
      ....
      procedure Button2Click(Sender: TObject);
      procedure Button3Click(Sender: TObject);
      procedure Edit3Change(Sender: TObject);
      procedure Button4Click(Sender: TObject);
      procedure Button5Click(Sender: TObject);
      Ответить
      • Много строк без названий. Прежде чем код генерить - нужно спросить у пользователя название для функции или обьекта. Всем все-равно потом лень переименовывать.
        Ответить
        • Дак ты не понимаешь концепцию. Мышкой нужно программировать. :)
          Ответить
          • Домохозяйкам и школьникам тяжело с клавиатурой управляться. :)
            Ответить
      • Не трогай религии! Табу!
        Ответить
    • Код, конечно, кривоватый, но на говнокод не тянет.
      -1
      Ответить
    • я хотела буквально всё - хотела попробовать член, отдаться в киску и всё такое. Я очень часто плакала когда была дома, по этому поводу, потому что желания и секс - фантазии буквально разрывали мой мозг, и только когда я мастурбировала, организм успокаивался и затихало на время дичайшее желание.
      Ответить

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