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

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

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

1. PHP (5701)
2. C++ (2737)
3. Куча (2339)
4. JavaScript (2028)
5. C# (1928)
6. Java (1502)
7. Си (1102)
8. Pascal (647)
9. Python (582)
10. 1C (534)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (198)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (30)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

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

   0

   1. 1
   2. 2

   for I=0 to MAXINT do
   GlobalAddAtom(I);

   ..После чего наблюдаем за поведением системы.

   KPblCA, 13 Января 2024

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

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

   0

   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

   function ReplaceHTMLSpec(First, Last, Text, RepTo, RepEd:string):string;
   var
     P:Integer;
     Temp:string;
   begin
     Temp:='';
     while True do
     begin
       P:=AnsiPos(First, Text); // нашли первое вхождение тега...
       if P =0 then Break;
       begin
         Delete(Text, P, Length(First)); // обработали тег...
         Insert(RepTo, Text, P);
         P:=PosEx(Last,Text,P); // ищем вхождение закрывающего тега...
         if P > 0 then
         begin
           Delete(Text, P, Length(Last)); // обработали тег.
           Insert(RepEd, Text, P);
         end;
       end;
     end;
     Result:=text;
   end;
   
   function DecorateText(S:string):string;
   var
     Temp:string;
   begin
     Result:=s;
   
    {замена некоторых распространенных тегов}
     Result:=StringReplace(Result,'<br />','',[rfreplaceall]); // движок не режет переводы строк, нет необходимости заменять <br> на #13#10.
     Result:=StringReplace(Result,'&quot;','"',[rfreplaceall]);
     Result:=StringReplace(Result,'&amp;','&',[rfreplaceall]);
     Result:=StringReplace(Result,'&lt;','<',[rfreplaceall]);
     Result:=StringReplace(Result,'&gt;','>',[rfreplaceall]);
     Result:=StringReplace(Result,'<i>','[i]',[rfreplaceall]);
     Result:=StringReplace(Result,'</i>','[/i]',[rfreplaceall]);
     Result:=StringReplace(Result,'<b>','[b]',[rfreplaceall]);
     Result:=StringReplace(Result,'</b>','[/b]',[rfreplaceall]);
   
     Temp:='';
     Result:=ReplaceHTMLSpec('<span style="color:white;">','</span>',Result,'[color=white]','[/color]');
     Result:=ReplaceHTMLSpec('<span style="color:red;">','</span>',Result,'[color=red]','[/color]');
     Result:=ReplaceHTMLSpec('<span style="color:blue;">','</span>', Result, '[color=blue]','[/color]');
     Result:=ReplaceHTMLSpec('<span style="color:green;">','</span>',Result,'[color=green]','[/color]');
     Result:=ReplaceHTMLSpec('<pre><code class="">','</code></pre>',Result,'[code]','[/code]');
     Result:=ReplaceHTMLSpec('<span style="font-size:10px;">','</span>',Result,'[size=10]','[/size]');
     Result:=ReplaceHTMLSpec('<span style="font-size:15px;">','</span>',Result,'[size=15]','[/size]');
     Result:=ReplaceHTMLSpec('<span style="font-size:20px;">','</span>',Result,'[size=20]','[/size]');
     Result:=ReplaceHTMLSpec('<span style="text-decoration:underline;">','</span>',Result,'[u]','[/u]');
     Result:=ReplaceHTMLSpec('<span style="text-decoration:line-through;">','</span>',Result,'[s]','[/s]');
     Result:=ReplaceHTMLSpec('<span style="text-decoration:blink;">','</span>',Result,'[blink]','[/blink]');
   end;

   Процедура для замены HTML-тегов на bb-codes, для их корректной обработки движком сайта,
   при копировании/перепостинге комментария флудером.

   DOKTOP_CMErMA, 27 Апреля 2023

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

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

   +1

   1. 1

   В одном из минувших топиков приподымали тему POP SMDб я тоже решил напейсать генератор паролей к этой игре.

   https://pastebin.com/ANHTMmeM
   
   на основе исходников roman-pro

   Support, 20 Марта 2023

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

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

   0

   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

   // реализация интерфейса IArguments2 для самодельного скриптового движка, aka vbs to exe
   
   unit Arguments;
   
   interface
   
   uses
     Windows, ComObj, ActiveX, Stub_TLB, SysUtils,WSHNamedArguments,WSHUnNamedArguments, CmdUtils;
   
   type
     TIarguments=class(TAutoObject, IArguments2, IEnumVariant)
         FAArgs:array of WideString;
         FWSHNamedArguments:TIWSHNamedArguments;
         FWSHUnNamedArguments:TIWSHUnNamedArguments;
         function Item(Index: Integer): WideString; safecall;
       function Count: Integer; safecall;
       function Get_length: Integer; safecall;
       function _NewEnum: IUnknown; safecall;
       property length: Integer read Get_length;
           function Get_Named: IWSHNamedArguments; safecall;
       function Get_Unnamed: IWSHUnnamedArguments; safecall;
       procedure ShowUsage; safecall;
       property Named: IWSHNamedArguments read Get_Named;
       property Unnamed: IWSHUnnamedArguments read Get_Unnamed;
           function Next(celt: LongWord; var rgvar : OleVariant;
         out pceltFetched: LongWord): HResult; stdcall;
       function Skip(celt: LongWord): HResult; stdcall;
       function Reset: HResult; stdcall;
       function Clone(out Enum: IEnumVariant): HResult; stdcall;
       public
       constructor Create;
       end;

   implementation
   
   
   
   uses ComServ;
   
   
   
   var
   
       FIndex:Integer=0;
   
   
   
   { TIarguments }
   
   
   
   function TIarguments._NewEnum: IUnknown;
   
   begin
   
     Result:=self;
   
   end;
   
   
   
   function TIarguments.Count: Integer;
   
   begin
   
     Result:=System.Length(FAArgs);
   
   end;
   
   
   
   function TIarguments.Get_length: Integer;
   
   begin
   
      Result:=Count;
   
   end;
   
   
   
   function TIarguments.Item(Index: Integer): WideString;
   
   begin
   
     if (Index >= System.Length(FAArgs)) then
   
     raise EOleSysError.Create('Range check error', HRESULT($800A0009),0)
   
     else
   
     Result:=FAArgs[Index]
   
   end;
   
   
   
   function TIarguments.Get_Named: IWSHNamedArguments;
   
   begin
   
     Result:=FWSHNamedArguments;
   
   end;
   
   
   
   function TIarguments.Get_Unnamed: IWSHUnnamedArguments;
   
   begin
   
     Result:=FWSHUnNamedArguments;
   
   end;
   
   
   
   procedure TIarguments.ShowUsage;
   
   begin
   
     OleError(E_NOTIMPL);
   
   end;
   
   
   
   constructor TIarguments.Create;
   
   var
   
     I,J, PCnt:Integer;
   
     S, CmdLine:string;
   
   begin
   
     inherited Create;
   
     FIndex:=0;
   
     FWSHNamedArguments:=TIWSHNamedArguments.Create;
   
     FWSHUnNamedArguments:=TIWSHUnNamedArguments.Create;
   
     PCnt:=ParamCount;
   
     SetLength(FAArgs, PCnt);
   
     for I:=1 to PCnt do
   
     begin
   
       J:=I-1;
   
       FAArgs[J]:=ParamStr(I);
   
     end;
   
   
   
     //Parsing named args.
   
   
   
     CmdLine:='';
   
     S:=GetCommandLine;
   
     PCnt:=iParamCount(PChar(S));
   
     if PCnt > 1 then
   
     begin
   
       for I:=1 to PCnt-1 do
   
       begin
   
         CmdLine:=CmdLine+iParamStr(PChar(S), I);
   
         if I < PCnt-1 then
   
         CmdLine:=CmdLine+' ';
   
       end;
   
     end;

   Support, 09 Июня 2022

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

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

   +1

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

   function rand:LongInt;
   {$IFOPT J-} {$J+} {$DEFINE NoJ} {$ENDIF}
   const next:LongInt=1;
   {$IFDEF NoJ} {$J-} {$UNDEF NoJ} {$ENDIF}
   begin
   next:=next*1103515245+12345;
   Result:=(next div 65536) mod 32768;
   end;

   Краткая инструкция как сделать static unsigned long int на Delphi.

   KOTOM, 31 Марта 2022

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

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

   0

   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

   procedure TF_dvij.rg_sortClick(Sender: TObject);
   var k :Integer;
       s,str1,str2 :string;
       fl :boolean;
   begin
   if G.Columns[9].Visible then
   begin
     fl := Q_dvij.Active ;
     with Q_dvij do
     begin
       if fl then k := RecNo;
       if rg_sort.ItemIndex=0 then s:='order by obd,gr,exped,grot'
       else
       if rg_sort.ItemIndex=1 then s:='order by exped,gr,obd,grot'
       else
       if rg_sort.ItemIndex=2 then s:='order by gr,vp,exped,obd,grot'
       else
       if rg_sort.ItemIndex=3 then s:='order by id_korr,exped,obd,gr,grot'
       else
       if rg_sort.ItemIndex=4 then s:='order by grot,gr,exped,obd'
       else
         s:='order by strn,obd,gr,exped,grot';
         
       if rg_sort.ItemIndex=3 then
         begin
           str1 := 'select vp, id_korr,' ;           //100
           str2 := 'group by 1,2,3,4,5,6,7,8'          //192
         end
       else
         begin
           str1 := 'select vp, max(id_korr) as id_korr,' ;
           str2 := 'group by 1,3,4,5,6,7,8'
         end  ;
   
       Active:=false;
       SQL.Delete(100);
       SQL.Insert(100, str1 );
       SQL.Delete(192);
       SQL.Insert(192, str2 );
       SQL.Delete(262);
       SQL.Insert(262, s);
       Active:= fl;
       if fl then RecNo := k;
       G.Refresh;
     end;
   end;

   сортировОЧКА

   Baiumka, 29 Марта 2022

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

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

   0

   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

   Dim a As Double
   	'обнуление видимой величины
   Private Sub Command1_Click()
       		Dim b As Double
       		Dim c As Double
     
       		b = Val(Replace(Text2.Text, ",", "."))
       		c = a - b
      		 Text3.Text = c
   End Sub
   
   Private Sub Form_Load()
   		'ввод числа 3FBF9ADD3746F67D 
        		a = 0.123456789012346 + 1E-16
       		Text1.Text = a
   End Sub

   Источник - https://www.softelectro.ru/ieee754.html

   j123123, 03 Февраля 2022

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

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

   0

   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

   with ZeoDataModule.TmpZQuery do
     begin
       ZeoDataModule.TmpZQuery.Close;
       ZeoDataModule.TmpZQuery.SQL.Clear;
       //ZeoDataModule.TmpZQuery.SQL.Add(ZeoDataModule.zqryOstatki.SQL.Text);
       ZeoDataModule.TmpZQuery.SQL.Add(TZQuery(dbgrdh1.DataSource.DataSet).SQL.Text);
   //    ZeoDataModule.Add ('select  *,''0.00'' as str_cen from material.ostatki_by_skladid(:skladid,:dt) ');
       ZeoDataModule.TmpZQuery.SQL.Add (' and  tovarid in(');
       for i:=0 to OstatkiTovarList.Count-1 do
       begin
         ZeoDataModule.TmpZQuery.SQL.Add(ostatkiTovarList[i]);
         if i< OstatkiTovarList.Count-1 then
           ZeoDataModule.TmpZQuery.SQL.Add(',');
       end;
       ZeoDataModule.TmpZQuery.SQL.Add(')');
       ZeoDataModule.TmpZQuery.SQL.Add('order by nt');
       //-------
       zQ_sv:= DataModulePrint.frxDBDatasetOstatki.DataSet as TZQuery;   // zqryOstatki
       //--------
       ZeoDataModule.zqrySumBySS.Close;
   //    ZeoDataModule.zqrySumBySS.SQL.Add('select :dt,:skladid from material.globalvalues where 1=2'); //  пустой набор
       ZeoDataModule.zqrySumBySS.ParamByName('skladid').Value:=10000;  // несуществующий склад (пустой набор)
       ZeoDataModule.zqrySumBySS.Open;
   
       ZeoDataModule.TmpZQuery.ParamByName('skladid').Value:=zQ_sv.ParamByName('skladid').Value;
       ZeoDataModule.TmpZQuery.ParamByName('dt').AsDate:=zQ_sv.ParamByName('dt').AsDate;
       ZeoDataModule.TmpZQuery.Open;
   
       DataModulePrint.frxDBDatasetOstatki.DataSet := ZeoDataModule.TmpZQuery;
       DataModulePrint.frxDBDatasetSumBySS.DataSet := ZeoDataModule.zqrySumBySS;
       if TypeVed=USUAL_OST then
       begin
         if Material.TypeSkladId = 4 then
           DataModulePrint.ShowReport('ostatki.fr3')
         else
           DataModulePrint.ShowReport('ostatki.fr3')
       end
       else if TypeVed = NO_MOVE_OST then
         DataModulePrint.ShowReport('ostatki_no_move.fr3');
   
       ZeoDataModule.TmpZQuery.Close;
   
       DataModulePrint.frxDBDatasetOstatki.DataSet := zQ_sv;
       ZeoDataModule.zqrySumBySS.Close;
       ZeoDataModule.zqrySumBySS.ParamByName('skladid').Value:=Material.Skladid;
   //    ZeoDataModule.zqrySumBySS.SQL.Clear();
   //    ZeoDataModule.zqrySumBySS.SQL.Add(sqlSum_sv); 
       ZeoDataModule.zqrySumBySS.Open;
     end;

   ZeoDataModule.TmpZQuery.SQL.Add(TZQuery( dbgrdh1.DataSource.DataSet).SQL.Text); - особенно понравилось. Молчу про "with".

   Baiumka, 31 Января 2022

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

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

   0

   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

   procedure TOstatkiForm.FormCreate(Sender: TObject);
   begin
     OstatkiTovarList:=TStringList.Create;
   
     btnShowToConvert.Enabled := False;
     grpToConvert.Visible := False;
   
     zqrToConvert.SQL.Text := 'select null::integer ostid,' + #13#10 +
                                     'null::integer tovarid,' + #13#10 +
                                     'null::bigint kt,' + #13#10 +
                                     'null::varchar nt,' + #13#10 +
                                     'null::numeric cen,' + #13#10 +
                                     'null::integer edizmerid,' + #13#10 +
                                     'null::varchar name_u,' + #13#10 +
                                     'null::date income_period,' + #13#10 +
                                     'null::varchar ss,' + #13#10 +
                                     'null::numeric ost_doc,' + #13#10 +
                                     'null::numeric gsum' + #13#10 +
                              'where 1=2';
   end;

   Без комментариев

   Baiumka, 12 Января 2022

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

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

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10

    if  (  (sd<>5)  )    and  //    (Material.ReadOnlySklad =false)      and
              (
                  (     Material.TypeSkladId <> 4    )  and
                  (
                 //    (Material.UserBuh = true )  or (Material.UserAdmin = true)     or
                         (Material.DisunionByOssSb=true )  or  ( credit_operation = true )
    
                  )
                )
               then

    Baiumka, 10 Января 2022

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

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

• 65
• 64
• 63
• 62
• 61
• …
• 1