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

    • lul, это даже круче, чем на похапе http://govnokod.ru/3757
      *придавливает Help булыжником*
      Ответить
    • явно turbo:=false;
      *загипнотизировался лесенкой кода*
      Ответить
    • Больше "слвоарей" - хороших и разных
      Ответить
    • Йолочка!!!!
      Ответить
    • завораживает...

      хочется взять и... выучить дельфи
      Ответить
    • True Sort
      Ответить
    • Временная пирамида. ^_^
      (Ударение ставить по вкусу.)
      Ответить
    • режим Турбо выключен. слава Богу, а то и так уже страшновато
      Ответить
    • Из этого же источника.
      Олицетворение ООП-подхода(юнит с формой):
      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
      Ответить

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