1. Лучший говнокод

    В номинации:
    За время:

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

    +102

    1. 1
    while dlg_SmplSpk.ShowModal = mrOk do ;

    Узрел такое! Срочно к себе в рецепты прогрессивного программирования!
    Сделано это для того, чтобы окно не закрывалось при подтверждении всех сделанных действий.
    Закрываться должно только при нажатии кнопочки "Закрыть".
    Отсюда непонятен ход мыслей автора сия творения.

    Grizzly, 11 Февраля 2011

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

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

    +102

    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
    function FileIsBusy(AFileName: string): Boolean;
var
  F: Integer;
begin
  F := FileOpen(AFileName, fmShareExclusive);
  Result := F = -1;
  FileClose(F);
end;

function WaitFile(AFileName: string; ASpeepDelay: integer): Boolean;
begin
  while FileIsBusy(AFileName) do
    Sleep(ASpeepDelay);
  Result := True;
end;

    пока юзверь ковыряется в Ворде, другой процесс мечтает овладеть файлом
    "It is necessary to wait of end of editing Microsoft Office files.I use next conventional approach: file is editing While file is busy" (ингриш - питерского разлива)

    это stackoverflow такими сниппетами переполнено

    bugmenot, 10 Декабря 2010

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

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

    +102

    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
    boo:=false;
j:=length(edit1.text);
for i:=1 to stringgrid1.RowCount do begin
 le:=length(stringgrid1.Cells[temp,i]);
 if (temp=1) or (temp=5) then begin
  if not (j>le) then
  for npo:=1 to ((le-j)+1) do begin
   str:=copy(Stringgrid1.cells[temp,i],npo,j);
   str_po:=str;
   if AnsiSameText(edit1.Text,str) then begin
    stringgrid1.Row:=i;
    boo:=true;
    break;
   end;
  end;
end;

    Еще один шедевр. Выполняет поиск введенного текста в Edit в заданой колонке Strinngrid'а.

    Nikitiy_II, 16 Ноября 2010

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

  5. C# / Говнокод #3844

    +102

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    public static void Attack()
{
     while (true)
      {
            new Thread(new ThreadStart(Attack)).Start();                
      }
}

    АтакЭ ))))

    Nigma143, 01 Августа 2010

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

  6. C# / Говнокод #3830

    +102

    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
    private static string GetRootedCurrentConfigurationFile(string configurationFile)
{
if (string.IsNullOrEmpty(configurationFile))
{
throw new ArgumentException(Resources.ExceptionStringNullOrEmpty, "configurationFile");
}
if (!File.Exists(configurationFile))
{
throw new FileNotFoundException(string.Format(CultureInfo.CurrentCulture, Resources.ExceptionConfigurationLoadFileNotFound, new object[] { configurationFile }));
}
if (!Path.IsPathRooted(configurationFile))
{
return Path.Combine(AppDomain.CurrentDomain.BaseDirectory, configurationFile);
}
return configurationFile;
}

    Собснно Говнокод by Microsoft (Ent Lib 5.0.414.0)

    TrueLauncher, 30 Июля 2010

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

  7. C# / Говнокод #3621

    +102

    1. 1
    2. 2
    3. 3
    long First = 2* ... ;
long Second = 2* ... ;
long Average = (First + Second) / 2

    1.як не треба рахувати середнє арифметичне.
    2.БАЯН.

    O_O, 02 Июля 2010

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

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

    +102

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    case dlg.sort.ItemIndex of
         0: Qry.SQL.Add('ORDER BY b.nn_rez;');
         1: if dlg.view.ItemIndex=1 then Qry.SQL.Add('ORDER BY c.prod_code;')
                                                 else Qry.SQL.Add('ORDER BY c.kod_okp;');
         2: if dlg.view.ItemIndex=1 then Qry.SQL.Add('ORDER BY c.res_name;')
                                                 else Qry.SQL.Add('ORDER BY c.naimres;');
     end;

    Твой кролик писал!
    кто-то явно мастер на выдумки

    Grizzly, 23 Июня 2010

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

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

    +102

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    // тут обычный паскалевский код...
if x > y then asm // если икс больше игрека
  mov eax, x  // то меняем их значения местами
  mov edx, y
  mov x, edx
  mov y, eax
end;

    Как поменять значения двух целочисленных переменных, не заводя третью? Года 3 назад я делал примерно так.

    TarasB, 01 Мая 2010

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

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

    +102

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    function TicksBetween(t1, t2 : dword) : dword;
begin
	if t2 > t1
	then Result:=t2 - t1 + 1
	else Result:=dword(-1) - t1 + t2 + 1;
end;

    Никогда не пишите с бодуна!

    whiskey, 01 Апреля 2010

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

  11. Pascal / Говнокод #2354

    +102

    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
    begin
  tru:=false;
  if    tru=false then
  begin
    ObrMatritsa(Sigm,Sigm_transp);
    tru:=true;
    det:=abs(Determinant(Sigm));
    if det=0 then
    begin
      ShowMessage('Determinant = 0');
      tru:=false;
      Application.Terminate;
      exit;
    end;
    //if  det=0 then begin result:=0 ; exit end;
    sum:=1/sqrt(power(2*pi,kol_prizn)*det* exp(Mas));
    if  sum=0 then result:=0 ;
  end else exit;
end;

    TAX, 30 Декабря 2009

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