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

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

+127

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

Function DiskInDrive(ADriveLetter : Char) : Boolean;
var
  SectorsPerCluster,
  BytesPerSector,
  NumberOfFreeClusters,
  TotalNumberOfClusters   : Cardinal;
begin
  Result := GetDiskFreeSpace(PChar(ADriveLetter+':\'),
                              SectorsPerCluster,
                              BytesPerSector,
                              NumberOfFreeClusters,
                              TotalNumberOfClusters);

end;

// еще один шедевр:

var
 SR  : TSearchRec;
 Res : integer;
 OldErrMode : integer;
begin
 // Запоминаем текущий режим обработки ошибок и устанавливаем SEM_FAILCRITICALERRORS
 // Это необходимо для подавления появления окна с сообщение о том, что устройство не готово
 OldErrMode = SetErrorMode(SEM_FAILCRITICALERRORS);
 try
  Res := FindFirst('a:\*.*', faAnyfile, SR);
  FindClose(SR);
 finally
  SetErrorMode(OldErrMode)
 end;
end;

С помощью этих процедур Олежик Зайцев на своем сайте предлагает определять доступность дисков, минуя сообщение WINDOWS "Диск не готов".
Без комментариев.

Stertor, 23 Июня 2013

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

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

+130

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

procedure TMyTr.Execute; // метод потока; эта процедура выполняется в отдельном потоке.
var
s,resp,ip,port:string;
cw,i:integer;
begin
  http:=TIdHTTP.Create(nil);
  cw:=getnumberproxy;
  while cw<form1.Memo1.Lines.Count do 
  begin
    s:=form1.Memo1.Lines[cw];
    i := Pos(':',s);
    IP := Copy(s,1,i-1);
    PORT := Copy(s,i+1,Length(s));
    try
      http.ProxyParams.ProxyServer:=ip;
      http.ProxyParams.ProxyPort:=StrToInt(port);
      http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
      resp:=http.Get('http://ya.ru/');
      if pos('ya.ru',resp)<>0 then
      form1.Memo2.Lines.Add(ip+':'+port);
      except
        end;
      cw:=getnumberproxy;
      checked:=checked+1;
      end;
  http.Free;

end;

Вот так живут Америка с Европой; что интересно, ни поток ни форма ни разу не заглючили.

Stertor, 23 Июня 2013

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

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

+129

01
02
03
04
05
06
07
08
09
10
11
12

function stringreplaceall(text, byt, mot: string): string;
var
  plats: integer;
begin
  while pos(byt, text) > 0 do
  begin
    plats := pos(byt, text);
    delete(text, plats, Length(byt));
    insert(mot, text, plats);
  end;
  Result := text;
end;

Найди десять отличий с родной дельфийской StringReplace. (trollface)

Stertor, 23 Июня 2013

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

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

+107

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

function FindPathInPath(path1: string; path2: string): Boolean;
var
  lst: TStringlist;
  i, l: integer;
begin
  lst := TStringlist.Create;
  // ----------------------------------------------
  path1 := stringreplaceall(path1, '/', '\');
  path1 := stringreplaceall(path1, '\\', '\');
  // ----------------------------------------------
   path2 := stringreplaceall(path2, '\', '');
   path2 := stringreplaceall(path2, '/', '');
   path2 := stringreplaceall(path2, '"', '');
   path2 := stringreplaceall(path2, '<', '');
   path2 := stringreplaceall(path2, '>', '');
   path2 := stringreplaceall(path2, '?', '');
   path2 := stringreplaceall(path2, '|', '');
   path2 := stringreplaceall(path2, ':', '');
   path2 := stringreplaceall(path2, '*', '');
  // ----------------------------------------------
  for i := 2 to CountString(path1, '\') + 1 do
  begin
    lst.Add(StringField(path1, '\', i));
  end;
  for l := 0 to lst.Count - 1 do
  begin
    if lstrcmpi(pchar(lst[l]), pchar(path2)) = 0 then
    begin
      FindPathInPath := True;
      break;
  end;
  end;
  lst.Free;
  FindPathInPath := false;
  exit;
end;

Функция для поиска названий подпапок в файловых путях.
Трудно судить г..нокод ли это, но так как я все же использовал более изящное решение, то быть посему...

Stertor, 23 Июня 2013

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

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

+132

01
02
03
04
05
06
07
08
09
10

var
    FormMeh: TFormMeh;
    x,y,len:integer;
      x2,y2:integer;
      x3,y3:integer;
      x0,y0, y20:integer;
      xa , ya : integer;
      v1 , v2 : integer;
    x1,y1,ar,dar:integer;
    anim:integer;

Глобальные переменные отныне РАЗРЕШЕНЫ. Утверждаю, подпись моя.

Stertor, 23 Июня 2013

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

PHP / Говнокод #13213

+152

1
2
3
4

$useAliasMap = $ctx->getOption('cache_alias_map', false) && array_key_exists($uri, $ctx->aliasMap);
if ($useAliasMap && array_key_exists($uri, $ctx->aliasMap)) {
                    $resourceId = (integer) $ctx->aliasMap[$uri];
}

Видимо array_key_exists у разработчика только на второй раз срабатывает

Agel_Nash, 22 Июня 2013

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

PHP / Говнокод #13212

+150

1
2
3

if (!empty ($src) && !array_key_exists($src, $this->loadedjscripts)) {
            if (isset ($this->loadedjscripts[$src]))
                return;

Если ключа нет, то проверяем не null ли значение в массиве по этому индексу.

Agel_Nash, 22 Июня 2013

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

PHP / Говнокод #13211

+153

1
2
3
4
5
6

public function __isset($name) {
        return ($this->getOption(xPDO::OPT_HYDRATE_FIELDS) && array_key_exists($name, $this->_fields) && isset($this->_fields[$name]))
            || ($this->getOption(xPDO::OPT_HYDRATE_RELATED_OBJECTS)
                && ((array_key_exists($name, $this->_composites) && isset($this->_composites[$name]))
                || (array_key_exists($name, $this->_aggregates) && isset($this->_aggregates[$name]))));
    }

ORM обертка одного очень популярного движка

Agel_Nash, 22 Июня 2013

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

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

−102

1
2
3
4
5
6
7

a=[1,2,3,1,2,1,4]
 
for i in a:
    if i is 1:
        zzz=222
    else:
        print zzz

http://ideone.com/nhqqRU
Сегодня весь день чинил странный баг, смысл которого сводится вот к такой синтетки.
Притом если условие не выполниться на первой итерации http://ideone.com/G3Uf7V , то будет эксепшен.

хуита, 21 Июня 2013

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

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

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

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

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

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

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

PHP / Говнокод #13213

PHP / Говнокод #13212

PHP / Говнокод #13211

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

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