Школоло / Говнокод #3764 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 BlincAttack, (Updated )

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

  • ava ganja_boy # Ссылка на оригинал 0

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

  • ava outlaw42 # Ссылка на оригинал 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
    Ответить

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

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓