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

    +78

    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
    implementation

uses import; { в юните import   import_sel = class(TThread)} 

var
  ImportProcess: import_sel;

.......


procedure TDS150.btnImportClick(Sender: TObject);
begin
    ImportProcess := import_sel.Create(True);
    ImportProcess.priority := tphigher;
    ImportProcess.FreeOnTerminate := True;
    ImportProcess.Resume;
end;

    Запостил: Rusmikle, 23 Февраля 2012

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

    • ava good_web_master 23.02.2012 17:49 # +1

      В тему гоносайт http://pro-pascal.ru/
      Ответить

    • ava Makar4egg 08.04.2012 02:45 # −1

      и что????
      Глобальная переменная - конечно лишняя.
      Если её больше не юзают ниоткуда в этом модуле, кроме этой процедуры, то это просто "не очень хороший стиль".
      А поток - сам себя убъёт. И утечек памяти не будет.
      И сам поток создан - нормально.

      ...и судя по тому, что ImportProcess.priority := tphigher;
      этот поток - короткий.

      ...Мне часто забавно бывает, как люди, не понимающие что на самом деле тут написано, считают это говнокодом...
      Ответить

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