1. Список говнокодов пользователя Nikitiy_II

    Всего: 4

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

    +145

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    if c = 'y' then 
begin 
  Writeln('Yes'); 
end else 
if c = 'n' then 
begin 
  Writeln('No'); 
end;

    Вот это кака... http://delphisources.ru/forum/showthread.php?t=19000

    Nikitiy_II, 23 Ноября 2011

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

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

    +100

    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
    dats:=datetostr(DateTimePicker1.Date);
datp:=datetostr(DateTimePicker2.Date);
datsc:=copy(dats,1,2);
datsm:=copy(dats,4,2);
datsg:=copy(dats,7,4);
datpc:=copy(datp,1,2);
datpm:=copy(datp,4,2);
datpg:=copy(datp,7,4);
idatsc:=strtoint(datsc);
idatsm:=strtoint(datsm);
idatsg:=strtoint(datsg);
idatpc:=strtoint(datpc);
idatpm:=strtoint(datpm);
idatpg:=strtoint(datpg);
tdatc:=strtoint(copy(p[i,6],1,2));
tdatm:=strtoint(copy(p[i,6],4,2));
tdatg:=strtoint(copy(p[i,6],7,4)); 
if not ((idatsg>tdatg) or ((idatsg=tdatg) and (idatsm>tdatm)) or ((idatsc>tdatc) and (idatsm>=tdatm)) or (idatpg<tdatg) or ((idatpg=tdatg) and (idatpm<tdatm)) or ((idatpc<tdatc) and (idatpm<=tdatm))) then

    Проверка или дата с массива включена в диапазон дат с DateTimePicker'ов (еще и с ошибкой в условии)
    И вся эта фигня в цикле... Как это увидел, валерьянкой отпаивали меня долго

    Nikitiy_II, 04 Января 2011

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

  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. Pascal / Говнокод #4627

    +104

    1. 1
    2. 2
    if doc_lang='UA' then filename:=ExtractFileDir(Application.ExeName)+'/docs/sales_slip_MS_UA.xlt';
if doc_lang='RU' then filename:=ExtractFileDir(Application.ExeName)+'/docs/sales_slip_MS_RU.xlt';

    Классика жанра, и так пол проги((((((

    Nikitiy_II, 14 Ноября 2010

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