Говнокод #2279 — Pascal — Говнокод.ру

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

Tweet
Комментарии (46) RSS
- guest 14.12.2009 15:47 # 0
  
  за одно объявление переменных надо руки отрубать
  Ответить
  - Сан Саныч 19.12.2009 19:32 # 0
    
    Так делается при добавлении стандартно. А оставлять такое дефолтное безобразие, разумеется, не стоит...
    Ответить
- guest 14.12.2009 16:45 # +1
  
  Много текста.
  Ответить
  - guest 15.12.2009 00:28 # −1
    
    Что-то вы совсем обленились. Даже читать не хотят... :(
    Ответить
- guest 14.12.2009 16:46 # −3
  
  Только не говорите, что Дельфи - синоним говнокода...
  Ответить
  - psina-from-ua 14.12.2009 16:51 # −2
    
    А зачем говорить? Все и так знают это.
    Ответить
    - nolka4 14.12.2009 20:35 # +2
      
      нифига подобного.
      говнокодить можно на любом языке. В отличие от си-подобных у паскаля лично для меня синтаксис более лего-читаемый
      Ответить
      
      psina-from-ua 14.12.2009 21:30 # −2
      
      Давай еще разведем холивар на тему что круче, С++ или Делфи.
      Ответить
      
      guest 15.12.2009 00:30 # −1
      
      Давай.
      С++ - это счастье.
      Дельфи - слышал про Дельфийские игры? Это игры инвалидов. Совпадение не случайно.
      Ответить
      
      guest 10.01.2010 07:27 # −1
      
      это не так
      Ответить
      
      guest 16.01.2010 15:50 # −1
      
      это печальнотак
      Ответить
      
      guest 27.01.2010 05:54 # −2
      
      ты идиот
      
      Дельфийские игры — конкурсы, фестивали, выставки и презентации в различных областях искусства.
      Ответить
      
      nolka4 15.12.2009 05:54 # 0
      
      делфи круче в написании сложных гуевых прог.
      Ответить
      
      psina-from-ua 15.12.2009 10:18 # −7
      
      показать все, что скрытоАга, а еще он крут для написания осей =) Для GUI программ лучше всего использовать C#. А делфи и паскаль подойдет только для обучения в школе, и то лучше было если бы в школах учили QBasic - от него пользы больше.
      Ответить
      
      nolka4 15.12.2009 19:04 # 0
      
      сарказм здесь неуместен. для запуска программы написанной на C# нужен .NET, + к тому оно будет медленнее работать(субъективно)
      Ответить
      
      psina-from-ua 16.12.2009 10:07 # 0
      
      Ах, ну да. .NET сейчас большая редкость ;) К тому же программы которые написаны на C# (да и вообще на .NET языках) могут запускаться на *nix и Mac OS. А насчет "медленнее работать", то это на существенно. Посмотри процессоры которые стоят у обычных юзверей, 2 - 3 Гц( в среднем), и память 1-2Гб, а ты говоришь про какие то доли секунды, которые никто даже не заметит. А если тебе важна скорость работы программы, то Assembler к твоим услугам.
      Ответить
      
      nolka4 16.12.2009 13:13 # −1
      
      не рассказывай мне про шарп, и про то, где и как запустится - я это все знаю :)
      Ответить
      
      guest 15.12.2009 11:48 # −1.2
      
      Для GUI лучше QT или WX использовать(SWT +Java) - так кросплатформенней:)
      C++ - великий старейшина программирования,
      Паскаль (в т.ч делфя) - мертвая лошадь
      Ответить
      
      guest 15.12.2009 11:50 # −1
      
      т.е свт - как 1 из кросплатформенных вариантов гуя для явы, я хотел сказать))
      Ответить
      
      guest 15.12.2009 12:52 # −0.2
      
      Хромая лошадь.
      Ответить
      
      nolka4 15.12.2009 19:06 # −0.8
      
      в плюсах без этих дурацких & и * и ** далеко не уйдешь, кроме того, By default отсутствует тип string + еще много всякого гемора.
      
      Простите, но я не люблю плюсы, и ненадо мне доказывать что плюсы рулят. Для меня рулят C# и Delphi(раньше)
      Ответить
      
      explosion_head 30.12.2009 00:55 # 0
      
      без * в плюсах прожить можно и вполне нормально. А вот в дельфи вместо & используются шапочки. string присутствует в плюсах еще со стандарта C99. Про всякий гемор - STL это часть языка
      Ответить
    - Lolwho 15.12.2009 19:47 # +1
      
      Вот это уж ты зря. На Дельфи можно писать как Пушкин, и в то же время можно и на C писать так что вырви глаз :D
      Ответить
      
      pppd 15.12.2009 20:59 # 0
      
      я, явно не пушки))
      к примеру великий делфе кодер - ms-rem
      автор нашумевшей малвари.. саме знаете какой ;)
      Ответить
      
      nolka4 16.12.2009 13:13 # 0
      
      я не в теме. какой?
      Ответить
      
      pppd 16.12.2009 13:22 # 0
      
      русток
      Ответить
      
      guest 17.12.2009 16:05 # −1
      
      Информативно...
      Ответить
      
      guest 17.12.2009 16:40 # −1
      
      http://www.securelist.com/ru/analysis?pubid=204007614
      Ответить
- guest 14.12.2009 21:31 # −3
  
  кукареку
  Ответить
- guest 15.12.2009 00:32 # −2
  
  Не пойму я что-то.
  >function Execute: DWord; stdcall;
  Нахрен здесь stdcall;?
  >destructor Destroy; override;
  Нах сдесь override;?
  Ответить
  - guest 15.12.2009 09:26 # −1
    
    >function Execute: DWord; stdcall;
    Нахрен здесь stdcall;?
    
    действительно зачем?
    
    >destructor Destroy; override;
    Нах сдесь override;?
    
    Destroy всегда override'ить надо (смотри TObject)
    Ответить
    - StriderMan 21.12.2009 19:00 # +1
      
      2. школота детектед! деструктор Destroy виртуален по-определению.
      Ответить
      
      guest 26.12.2009 10:34 # −1
      
      Я так понимаю для деструктора Destroy не нужно писать override, а для деструкторов с другим названием, например DestroyMe, - нужно?
      Ответить
- guest 15.12.2009 12:27 # −1
  
  а потоки лучше делать через класс тред или через крейт тред?? с кем проще работат ьв плане синхронизации и вообще стабильности??
  Ответить
- guest 15.12.2009 12:59 # −1
  
  Нафиг сдесь свой класс потоков. Чем стандартный класс не угодил?
  Ответить
  - guest 15.12.2009 13:04 # −1
    
    надо было потом сделать конструктор
    Ответить
- guest 15.12.2009 14:02 # +1
  
  >text:string;first:string;dop1:string;do p2:string;dop3:string;dop4:string;dop5:s tring;dop6:string;first_end:string;last: string
  Ыыы.
  Ответить
- guest 15.12.2009 17:37 # −1
  
  добротное такое, попахивающие говнище
  Ответить
- guest 15.12.2009 17:37 # −1
  
  жуткий говнокод, индусы не подвели
  
  капча солидарна 7447
  Ответить
- guest 17.12.2009 16:07 # −1
  
  Кодегенератор дельфи способствует индусизму:
  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);
  Ответить
  - guest 17.12.2009 16:09 # −2
    
    Много строк без названий. Прежде чем код генерить - нужно спросить у пользователя название для функции или обьекта. Всем все-равно потом лень переименовывать.
    Ответить
    - guest 17.12.2009 16:10 # −1
      
      Дак ты не понимаешь концепцию. Мышкой нужно программировать. :)
      Ответить
      
      guest 17.12.2009 16:11 # −1
      
      Домохозяйкам и школьникам тяжело с клавиатурой управляться. :)
      Ответить
  - guest 17.12.2009 16:12 # −1
    
    Не трогай религии! Табу!
    Ответить
- guest 24.12.2009 11:40 # −1.8
  
  Код, конечно, кривоватый, но на говнокод не тянет.
  -1
  Ответить
- Acid Beast 24.08.2021 02:09 # 0
  
  я хотела буквально всё - хотела попробовать член, отдаться в киску и всё такое. Я очень часто плакала когда была дома, по этому поводу, потому что желания и секс - фантазии буквально разрывали мой мозг, и только когда я мастурбировала, организм успокаивался и затихало на время дичайшее желание.
  Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Семь раз отмерь — один отрежь, guest!

А не использовать ли нам bbcode?

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

Проверочный код: *

Говнокод: по колено в коде.

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

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

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