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

    +1

    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
    procedure TForm1.TrackBar1Change(Sender: TObject);
       var I: integer;
       priority:TThreadPriority;
    { Изменение приоритета соответствующего потока }
    begin
       priority:=tpIdle;
       for i:=0 to ((Sender as TTrackBar).position -1) do 
          inc(priority);
       
       if sender=trackbar1 then thread1.priority:=priority  else
       if sender=trackbar3 then thread3.priority:=priority
       else thread2.Priority:=priority;
    end;

    Из методички к лабе.

    Запостил: vn13, 26 Октября 2016

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

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