Говнокод #7125 — Pascal — Говнокод.ру

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

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

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

+93

if Length(PP.curdir)<36 then
pt:=' '+PP.curdir+' '
else pt:=' \...'+Copy(PP.curdir,Length(PP.curdir)-30,31)+' ';
Ptr:=PP.f_ptr;
if PP.vol='' then PP.vol:='No Label';
WriteString(1,cc+(40-length(pt)) div 2,pt,Pal[8]);
WriteString(22,cc+1+(cc*(34-length(PP.vol))) div 40,'['+PP.vol+']',Pal[7]);
if PP.vol='No Label' then  PP.vol:='';
{if PP.empty then exit;}
inc(ptr,sizeof(filrec)*row);
for i:=row to n+row do begin
if (i <PP.files) and (not PP.empty) then begin fname:=ptr^.filename;
{if (ptr^.fileattr and 16) = 0 then StrLwr(fname);}
if (Ptr^.fileattr and 2) <> 0 then fname[1]:=upcase(fname[1]);
if ((Ptr^.fileattr and Hidden) <> 0) and (Pos('.',Fname)>0) then fname[Pos('.',Fname)+1]:=upcase(fname[Pos('.',Fname)+1]);
SortFIle(fname);
for a := length(fname) to 11 do fname:=fname+' ';
fname:=fname+'│';
if (Ptr^.fileattr and 16) = 0 then Str(Ptr^.filesize:10,pt)
else if fname[1]='.' then pt:='UP──-DIR'
     else pt:='SUB─-DIR';
fname:=fname+pt+'│';
DateTimeCnv(pt,Ptr^.filedttm);
fname:=fname+pt;     {SetFattr}
if Ptr^.selected then WriteString(2+i-row,cc,fname,Pal[1]) else
WriteString(2+i-row,cc,fname,Pal[2]);
inc(ptr,sizeof(filrec));
end
else WriteString(2+i-row,cc,'            │          │        │     ',Pal[1]);
end;
end;
procedure Put_File(PP:Panel;cc,row,x:word;active:boolean);
var
fname,pt:string;
{ptr:P_filrec;}
begin
if PP.empty then exit;
ptr:=PP.F_ptr;
inc(ptr,sizeof(filrec)*(row+x));
fname:=ptr^.filename;
{if (ptr^.fileattr and 16) = 0 then StrLwr(fname);}
if (Ptr^.fileattr and 2) <> 0 then fname[1]:=upcase(fname[1]);
if ((Ptr^.fileattr and Hidden) <> 0) and (Pos('.',Fname)>0) then fname[Pos('.',Fname)+1]:=upcase(fname[Pos('.',Fname)+1]);
SortFile(fname);
for a := length(fname) to 11 do fname:=fname+' ';
fname:=fname+'│';
if (Ptr^.fileattr and 16) = 0 then Str(Ptr^.filesize:10,pt)
else if fname[1]='.' then pt:='UP──-DIR'
     else pt:='SUB─-DIR';
fname:=fname+pt+'│';
DateTimeCnv(pt,Ptr^.filedttm);
fname:=fname+pt;
if active then If Ptr^.selected then WriteString(2+x,cc,fname,Pal[3]) else
WriteString(2+x,cc,fname,Pal[4])
else if Ptr^.selected then WriteString(2+x,cc,fname,Pal[1]) else
WriteString(2+x,cc,fname,Pal[2])

Файловый менеджер по-типу NC. Pascal, 7-ой класс школы. Участок формирования одной из панелей.
PS: Вообще, это даже как-то работало: http://habrastorage.org/storage1/84736ecc/b4711597/5b1d2618/5b60c662.png

Запостил:

Tronix, 01 Июля 2011

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

TheHamstertamer 01.07.2011 10:57 # 0

make me unsee it 0_0
Ответить
kipar 01.07.2011 11:32 # +3

Не пойму зачем там указатели и всякие
inc(ptr,sizeof(filrec)*(row+x));
Когда можно было выделять память под массив и обращаться по индексу.

А так - для седьмого класса имхо гениально.
Ответить
- Tronix 01.07.2011 12:30 # +1
  Не помню за давностью, почему так. Весь проект - где-то около ~6000 строк, и всегда идет примерно такой код:
  
  ut_File(PXx^,1+curac*40,rb,x,True); {HZ !!!!!!!! x-1 ??????} ClearBox(Pal[10],23,1+length(PXx^.curdir),23,79); if CurX > 79-length(PXx^.curdir) then WriteString(23,1+length(PXx^.curdir),copy(cmd,CurX - (79-length(PXx^.curdir))+1, 79),pal[10]) else if Length(cmd) > 79-length(PXx^.curdir) then WriteString(23,1+length(PXx^.curdir),copy(cmd,1,79-length(PXx^.curdir)),pal[10]) else WriteString(23,1+length(PXx^.curdir),cmd,pal[10]); WriteString(23,0,Pxx^.curdir,pal[11]); WriteString(23,length(Pxx^.curdir),'>',pal[12]); cursoron; if CurX > 79-length(PXx^.curdir) then SetPos(23,length(PXx^.curdir)+CurX mod 80) else SetPos(23,1+length(PXx^.curdir)+CurX); b:=GetKeymouse; ch:=chr(b{ and 255}); b:=b shr 8; cursoroff; Put_File(PXX^,1+curac*40,rb,x,false); {!!!!!!!!!!! WARNING x-1??? !!!!!!}
  
  Все комментарии примерно такие как в вышеприведенном участке -)
  Ответить
  - bugmenot 01.07.2011 13:20 # +2
    
    кошка потопталась на клавиатуре?
    Ответить
    - Tronix 01.07.2011 17:09 # 0
      
      Дык говнокод же
      Ответить
LegionDead 01.07.2011 16:33 # −6

показать все, что скрытоДельфи сам по себе кал
Ответить
- TheHamstertamer 01.07.2011 16:47 # +4
  
  дельфо-кресто срач хотел начать, хитрец?
  Ответить
  - LegionDead 01.07.2011 16:48 # −3
    
    это не ко мне
    Ответить
- Tronix 01.07.2011 17:10 # +2
  
  Будешь смеятсо, но это не Дельфи
  Ответить
  - guest 01.07.2011 17:29 # −3
    
    А sheet'о это?
    Ответить
    - Tronix 01.07.2011 17:49 # +2
      
      algol 78
      Ответить
    - TheHamstertamer 02.07.2011 19:13 # +1
      
      shoot`ничек до`hoo`я? :D
      Ответить
      - guest 03.07.2011 00:13 # −1
        
        Yaya
        Ответить
carsten 05.07.2011 07:05 # +2

для 7-ого класса недурно
Ответить
gegMOPO4 06.07.2011 19:50 # −1

Давайте введём возрастной ценз авторов кода. Хотя бы курса до третьего.
Ответить
- guest 06.07.2011 20:02 # −2
  
  Не, хотя бы 2 года стажа.
  Ответить
  - gegMOPO4 06.07.2011 20:23 # 0
    
    Ну, кто-то же будет сопровождать код, написанный в первые два года.
    Ответить
    - bugmenot 06.07.2011 21:38 # 0
      
      матан-каптча и что-нибудь из интергрального исчисления
      пропустит вундеркинда и отгонит 3 курс педоучилища
      Ответить
      - Tronix 06.07.2011 23:13 # 0
        
        Господа, я уже много лет назад окончил высшее учебное заведение (Московский Авиационный Институт, 3-ий фак, Автоматизированных систем обработки информации и управления), перед этим получил средне-специальное образование в техникуме (МГКИТ на курской, 2203 - Программное обеспечение вычислительной техники и автоматизированных систем). Если вы думаете, что меня не гоняли по матану, статистике, матанализу и еще куче дисцеплин - вы ошибаетесь. Сей код - именно что из школы, просто случайно нашел в бекапах. Согласитесь, что в то время, когда еще даже не было интернета, а только пирацкие диски со спеками это все было не так просто... Не понравилось - ну все, удаляюсь.
        Ответить
        
        SmackMyBitchUp 06.07.2011 23:54 # 0
        
        Бля, народ, читаю его и думаю - оставьте простую капчу, она тоже некоторых отпугивает
        Ответить
        
        guest 07.07.2011 00:41 # −1
        
        >простую капчу, она тоже некоторых отпугивает
        Ага, ботов и почти слепых.
        Ответить
        
        bugmenot 07.07.2011 01:28 # −1
        
        * интегрального
        ну вот, QED, МАИ - пропустит, а текстильный - нет, как и задумывалось
        Ответить
        
        guest 07.07.2011 02:37 # −1
        
        >текстильный
        Вы думаете, большую часть лаб сюда постят студенты данного учебного заведения?
        Ответить
guest8 09.04.2019 18:11 # −999

показать все, что скрытоvanished
Ответить

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

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

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

Добавить комментарий