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

    Всего: 1

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

    +96

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    procedure TForm1.Timer1Timer(Sender: TObject);//интервал 1 минута
var
  f: file of byte;
  c: byte;
begin
  assignfile(f, 'c:\0.dsk');
  if fileexists('c:\0.dsk') then reset(f) else rewrite(f);// :)
  c := 0;
  write(f, c);
  closefile(f);
end;

    Процедура "дёрганья" диска ))

    eoln, 01 Августа 2011

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