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

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
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 Rusmikle, (Updated )

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

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

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

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

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

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

Из-за тебя ушел bormand, guest!

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

    ↑
    8
    ↓