По колено в коде — Говнокод.ру

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

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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)

Си / Говнокод #28096

0

1

#exclude <conio.h>

конио

3_dar, 29 Марта 2022

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

Куча / Говнокод #28092

+1

1

Петух иньо забыл продлить домен

inho-pidar, 25 Марта 2022

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

Куча / Говнокод #28091

0

1

Политота #11

#1: https://govnokod.ru/15804 https://govnokod.xyz/_15804
#2: https://govnokod.ru/19910 https://govnokod.xyz/_19910
#3: https://govnokod.ru/23643 https://govnokod.xyz/_23643
#4: (vanished) https://govnokod.xyz/_24822
#5: https://govnokod.ru/24868 https://govnokod.xyz/_24868
#6: (vanished) https://govnokod.xyz/_26648
#7: https://govnokod.ru/26673 https://govnokod.xyz/_26673
#8: https://govnokod.ru/27052 https://govnokod.xyz/_27052
#9: https://govnokod.ru/27852 https://govnokod.xyz/_27852
#10: https://govnokod.ru/28060 https://govnokod.xyz/_28060

nepeKamHblu_nemyx, 24 Марта 2022

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

Python / Говнокод #28090

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

def getMyIPAddress():
    global __ip__
    if __ip__:
        return __ip__
    with suppress(Exception):
        __ip__ = get('https://api.my-ip.io/ip', timeout=.1).text
    with suppress(Exception):
        __ip__ = get('https://ipwhois.app/json/', timeout=.1).json()["ip"]
    with suppress(Exception):
        __ip__ = get('https://ipinfo.io/json', timeout=.1).json()["ip"]
    with suppress(Exception):
        __ip__ = ProxyTools.Patterns.IP.search(get('http://checkip.dyndns.org/', timeout=.1).text)
    with suppress(Exception):
        __ip__ = ProxyTools.Patterns.IP.search(get('https://spaceiran.com/myip/', timeout=.1).text)
    with suppress(Exception):
        __ip__ = get('https://ip.42.pl/raw', timeout=.1).text
    return getMyIPAddress()

Что имел в виду автор? Кто понял?

inho-pidar, 24 Марта 2022

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

JavaScript / Говнокод #28089

+3

1
2
3
4
5

function main()
{
    for (const i of [1, 2, 3])
        print("Hello World!", i);
}

ну что вершилось чудо.. теперь на https://godbolt.org/ можно попробывать альфа версию компилятора
пока показывает только - LLVM IR и вывод выполнения
https://i.postimg.cc/Kj3Bd78d/god-bolt-tsc-native.jpg

[god-bolt-tsc-native.jpg](https://postimg.cc/QKsF7T5b)

ASD_77, 23 Марта 2022

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

Си / Говнокод #28088

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

/*
 *  libcaca       Colour ASCII-Art library
 *  Copyright (c) 2002-2010 Sam Hocevar <[email protected]>
 *                All Rights Reserved
 *
 *  This library is free software. It comes without any warranty, to
 *  the extent permitted by applicable law. You can redistribute it
 *  and/or modify it under the terms of the Do What The Fuck You Want
 *  To Public License, Version 2, as published by Sam Hocevar. See
 *  http://sam.zoy.org/wtfpl/COPYING for more details.
 */

/*
 *  This header contains a conio.h reimplementation.
 */

#ifndef __CACA_CONIO_H__
#define __CACA_CONIO_H__

/* Since we're going to redefine standard functions, include these
 * headers first to avoid errors upon later inclusion. */
#if !defined(__KERNEL__)
#   include <stdio.h>
#endif

#include <caca.h>

#if !defined _DOXYGEN_SKIP_ME && !defined __LIBCACA__
#   undef BLINK
#   define BLINK CACA_CONIO_BLINK
#   undef BLACK
#   define BLACK CACA_CONIO_BLACK
#   undef BLUE
#   define BLUE CACA_CONIO_BLUE
#   undef GREEN
#   define GREEN CACA_CONIO_GREEN
#   undef CYAN
#   define CYAN CACA_CONIO_CYAN
#   undef RED
#   define RED CACA_CONIO_RED
#   undef MAGENTA
#   define MAGENTA CACA_CONIO_MAGENTA
#   undef BROWN
#   define BROWN CACA_CONIO_BROWN
#   undef LIGHTGRAY
#   define LIGHTGRAY CACA_CONIO_LIGHTGRAY
#   undef DARKGRAY
#   define DARKGRAY CACA_CONIO_DARKGRAY
#   undef LIGHTBLUE
#   define LIGHTBLUE CACA_CONIO_LIGHTBLUE
#   undef LIGHTGREEN
#   define LIGHTGREEN CACA_CONIO_LIGHTGREEN
#   undef LIGHTCYAN
#   define LIGHTCYAN CACA_CONIO_LIGHTCYAN
#   undef LIGHTRED
#   define LIGHTRED CACA_CONIO_LIGHTRED
#   undef LIGHTMAGENTA
#   define LIGHTMAGENTA CACA_CONIO_LIGHTMAGENTA
#   undef YELLOW
#   define YELLOW CACA_CONIO_YELLOW
#   undef WHITE
#   define WHITE CACA_CONIO_WHITE
#endif

3_dar, 22 Марта 2022

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

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