1. Pascal / Говнокод #3764

    +120

    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
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    begin
   if not directoryexists('input') then createdir('input');
   if not directoryexists('output') then createdir('output');
   if not directoryexists('temp') then createdir('temp');
   if not directoryexists('temp\temp') then createdir('temp\temp');
   if not directoryexists('temp\temp_') then createdir('temp\temp_');
   if not directoryexists('temp\temp__') then createdir('temp\temp__');
   if not directoryexists('temp\temp___') then createdir('temp\temp___');
   if not directoryexists('temp\temp____') then createdir('temp\temp____');
   if not directoryexists('temp\temp_____') then createdir('temp\temp_____');
   if not directoryexists('temp\temp______') then createdir('temp\temp______');
   if not directoryexists('temp\temp_______') then createdir('temp\temp_______');
   if not directoryexists('temp\temp________') then createdir('temp\temp________');
   if not directoryexists('temp\temp_________') then createdir('temp\temp_________');
   if not directoryexists('temp\temp__________') then createdir('temp\temp__________');
   if not directoryexists('temp\temp___________') then createdir('temp\temp___________');
   if not directoryexists('temp\temp____________') then createdir('temp\temp____________');
   if not directoryexists('temp\temp_____________') then createdir('temp\temp_____________');
   if not directoryexists('temp\temp______________') then createdir('temp\temp______________');
   if not directoryexists('temp\temp_______________') then createdir('temp\temp_______________');
   if not directoryexists('temp\temp________________') then createdir('temp\temp________________');
   print_('Вас приветствует программа для сортировки слвоарей True Sort');
   print_('Если у вас есть какие-то вопросы по её работе - нажмите Help');
   turbo:=false;
end;

    Кинул знаковый в асю=\

    Запостил: BlincAttack, 23 Июля 2010

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

    • ava bugmenot 23.07.2010 08:16 # +4

      lul, это даже круче, чем на похапе http://govnokod.ru/3757
      *придавливает Help булыжником*
      Ответить

    • ava Lure Of Chaos 23.07.2010 10:22 # +4

      явно turbo:=false;
      *загипнотизировался лесенкой кода*
      Ответить

    • ava Dreyk 23.07.2010 15:20 # +2

      Больше "слвоарей" - хороших и разных
      Ответить

    • ava BlincAttack 23.07.2010 16:47 # +1

      Йолочка!!!!
      Ответить

    • ava Мистер Хэнки 23.07.2010 17:24 # +1

      завораживает...

      хочется взять и... выучить дельфи
      Ответить

    • ava Говногость 23.07.2010 18:52 # +1

      True Sort
      Ответить

    • ava ReallyBugMeNot 23.07.2010 22:45 # +3

      Временная пирамида. ^_^
      (Ударение ставить по вкусу.)
      Ответить

    • ava ganja_boy 28.07.2010 12:13 # −1

      режим Турбо выключен. слава Богу, а то и так уже страшновато
      Ответить

    • ava outlaw42 31.10.2010 16:56 # 0

      Из этого же источника.
      Олицетворение ООП-подхода(юнит с формой):
      var
  Form1: TForm1;
  in_Buf, out_Buf: array[1..262144] of Char;
  _all_letters: array of textfile;
  symbol_buff: array of array[1..262144] of Char;

  output_file,input_file: textfile;
  
  my_list:array of string;
  start_time:Tdatetime;
  f_processed:integer;
  print_str:string;
  turbo:boolean;


  buffer : array [word] of char;
    Bytes_read, LastPoint : integer;
    LS : string;
    FileStream:TFileStream;
    buff:string;

    DivideThreadAlive:boolean;
    DumpThreadAlive : boolean;
    FileArrayOpened: boolean;

      Правильно, зачем добавлять методы в класс формы если можно все делать на глобальных подпрограммах и на форму ссылаться через Form1:
      procedure lock_buttons;
begin
   form1.button1.enabled:=false;
   form1.button2.enabled:=false;
   form1.button3.enabled:=false;
   form1.checkbox1.enabled:=false;
   form1.button7.enabled:=false;
end;

procedure unlock_buttons;
begin
   form1.button1.enabled:=true;
   form1.button2.enabled:=true;
   form1.button3.enabled:=true;
   form1.checkbox1.enabled:=true;
   form1.button7.enabled:=true;
end;

procedure clear;
begin
   form1.listbox1.clear;
   form1.Memo1.Clear;
end;

      А тут вообще ноу комментс:
      if button3.visible=false then
      Ответить

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