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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5698)
2. C++ (2733)
3. Куча (2324)
4. JavaScript (2027)
5. C# (1924)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (531)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (196)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (28)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

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

   +136

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7
   8. 8
   9. 9

   procedure Button1Click(Sender:TObject)
     begin
     if (TreeView1.Selected<>Nil) then
       if (TreeView1.Selected.ImageIndex = 5) then
         begin
         {выбран лист дерева - обрабатываем}
         ........
         end;
     end;

   Написано мною на втором курсе. Тип узла в дереве определялся по ImageIndex - узел каждого типа имел свою картинку.

   guest, 04 Мая 2009

   Комментарии (26)

2. Pascal / Говнокод #975

   +151

   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

   procedure TForm1.N4Click(Sender: TObject);//процедура "Файл->Сохранить"
   begin
   if Form1.Caption='Новый' then
   N5Click(Sender) else
      begin // добавить
      Form1.vvod.Lines.SaveToFile(Form1.Caption);//Сохраняем
      Form1.vvod.Tag:=0; // добавить
      end; // добавить
      N7.Enabled:=true;
      vvod.Modified:=false;
      label3.Caption:='Нет';
   end;
   
   procedure TForm1.N5Click(Sender: TObject);//Процедура "Файл->Сохранить как..."
   var fname:string;
   begin
     N7.Enabled:=true;//Включение процедуры "Файл->Закрыть"
     if SaveDialog1.Execute then
     begin
       fname:=SaveDialog1.FileName;
       if SaveDialog1.FilterIndex=1 then//PHP
         begin
         vvod.Lines.SaveToFile(fname+'.php');
         Form1.Caption:=ExtractFileName(fname+'.php');
         end;
       if SaveDialog1.FilterIndex=2 then//HTML
         begin
         vvod.Lines.SaveToFile(fname+'.htm');
         Form1.Caption:=ExtractFileName(fname+'.htm');
         end;
       if SaveDialog1.FilterIndex=3 then//CSS
         begin
         vvod.Lines.SaveToFile(fname+'.css');
         Form1.Caption:=ExtractFileName(fname+'.css');
         end;
       if SaveDialog1.FilterIndex=4 then//txt
         begin
         vvod.Lines.SaveToFile(fname+'.txt');
         Form1.Caption:=ExtractFileName(fname+'.txt');
         end;
   
   
   
       vvod.Modified:=false;
       label3.Caption:='Нет';
     end;
   end;

   guest, 29 Апреля 2009

   Комментарии (2)

3. Pascal / Говнокод #959

   +151

   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

   library ExDouble;
    
   uses
     SysUtils,
     Classes;
    
   {$R *.res}
    
   function calc_double(r: real): real; stdcall;
   begin
     result := 2;
   end;
    
   exports
     calc_double index 1;
    
   
   end.
   
   
   
   
   
   
   
   unit Unit1;
    
   interface
    
   uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls;
    
   type
     TForm1 = class(TForm)
       Edit1: TEdit;
       Button1: TButton;
       procedure Button1Click(Sender: TObject);
     private
       { Private declarations }
     public
       { Public declarations }
     end;
    
   var
     Form1: TForm1;
   function calc_double(r: real): real; stdcall; external 'ExDouble.dll';
    
   implementation
    
   {$R *.dfm}
    
   procedure TForm1.Button1Click(Sender: TObject);
   begin
   if Edit1.Text<>FloatToStr(calc_double(0))then
   ShowMessage('')
   else begin
   ShowMessage('dsfgsdfg');
   end;
   end;
    
   end.

   guest, 27 Апреля 2009

   Комментарии (5)

4. Pascal / Говнокод #935

   +151

   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

   procedure Load_flashDEF_setings;
   var
     Reg: TRegistry;
     RegKeyPath: string;
   begin
    Reg := TRegistry.Create;
    try
     with Reg do begin
      RootKey := HKEY_CURRENT_USER;
      RegKeyPath := 'Software\fuckinSoft';
      OpenKey(RegKeyPath, True);
      if ReadBool('Wipe_File')=false then begin Main.frmMain.CBx_wipe_file.Checked:=false;
      end
      else
      if ReadBool('Wipe_File')=true then begin Main.frmMain.CBx_wipe_file.Checked:=true;
      end
      else
      if ReadBool('Def_Module')=false then begin Main.frmMain.CBx_defence_module.Checked:=false;
      end
      else
      if ReadBool('Def_Module')=true then begin Main.frmMain.CBx_defence_module.Checked:=true;
      end
     end
    finally
     Reg.CloseKey;
     Reg.Free;
    end;
   end;
    
   procedure Save_flashDEF_setings;
   var
     Reg: TRegistry;
     RegKeyPath: string;
   begin
    Reg := TRegistry.Create;
    try
     with Reg do begin
      RootKey := HKEY_CURRENT_USER;
      RegKeyPath := 'Software\fuckinSoft';
      OpenKey(RegKeyPath, True);
      if Main.frmMain.CBx_wipe_file.Checked=true then begin WriteBool('Wipe_File', true);
      end
      else
      if Main.frmMain.CBx_wipe_file.Checked=false then begin WriteBool('Wipe_File', false);
      end
      else
      if Main.frmMain.CBx_defence_module.Checked=true then begin WriteBool('Def_Module', true);
      end
      else
      if Main.frmMain.CBx_defence_module.Checked=false then begin WriteBool('Def_Module', false);
      end
     end
    finally
     Reg.CloseKey;
     Reg.Free;
    end;
   end;

   Ифы хороши в меру =\

   guest, 23 Апреля 2009

   Комментарии (1)

5. Pascal / Говнокод #934

   +151

   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

   if kol=1 then begin
    if GSravn.Cells[kol,Str]='VF'
               then GSravn.Cells[kol,Str]:='RF'
               else if GSravn.Cells[kol,Str]='RF'
                       then GSravn.Cells[kol,Str]:='PF'
                       else if GSravn.Cells[kol,Str]='PF'
                               then GSravn.Cells[kol,Str]:='PT'
                               else if GSravn.Cells[kol,Str]='PT'
                                       then GSravn.Cells[kol,Str]:='RT'
                                       else if GSravn.Cells[kol,Str]='RT'
                                               then GSravn.Cells[kol,Str]:='VT'
                                               else if GSravn.Cells[kol,Str]='VT'
                                                       then GSravn.Cells[kol,Str]:='VF';

   %)

   guest, 23 Апреля 2009

   Комментарии (2)

6. Pascal / Говнокод #928

   +144

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6

   ...............
   ...............
   cxGrid1DBTableView1.DataController.Groups.FullCollapse;
   cxGrid1DBTableView1.DataController.Groups.FullCollapse;
   ...............
   ...............

   не песдеть что [:||:]
   этот говнокомпонет с первого раза не все колапсит только со второго. не ожидал что такое говно придется писать.

   guest, 23 Апреля 2009

   Комментарии (0)

7. Pascal / Говнокод #888

   +152

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   procedure TfmEditAddDet.ControlExit(Sender: TObject);
   begin
     if Sender Is TEdit then TRIM(TEdit(Sender).Text)
       else if Sender Is TMemo then TRIM(TEdit(Sender).Text);
   end;

   Попытка вызова TRIM как процедуру.

   guest, 16 Апреля 2009

   Комментарии (1)

8. Pascal / Говнокод #830

   +149

   1. 1
   2. 2
   3. 3
   4. 4

   Tsel=^sel;	
   sel=Record
   Inf:TInf;
   A:Tsel;

   Тут Sel это Cell. Это одна малая часть объявления имен

   guest, 07 Апреля 2009

   Комментарии (2)

9. Pascal / Говнокод #813

   +151

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   case PInboxMessage(InboxMessagesList.Items[Item.Index])^.MsgState of
       0 : Item.ImageIndex:=0;
       1 : Item.ImageIndex:=1;
     end;
       1 : Item.ImageIndex:=1;  end;

   Зачем использовать оператор case для проверки...

   guest, 04 Апреля 2009

   Комментарии (0)

10. Pascal / Говнокод #809

    +148

    1. 1
    2. 2
    3. 3

    if ((x0+a[i,1]{-1}) in [1..8])or((y0+a[i,2]) in [1..8]{2}){and(brd[(x0+a[i,1]),(y0+a[i,2])]=0) } then begin
          reit[i]:=stepsreit(brd,x0+a[i,1],y0+a[i,2]);
        end;

    А почему оно не работает?

    guest, 03 Апреля 2009

    Комментарии (1)

• ← влево
• вправо →

• 65
• …
• 8
• 7
• 6
• 5
• 4
• 3
• 2
• 1