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

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

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

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

    function TThread.GetPriority: TThreadPriority;
var
  P: Integer;
  I: TThreadPriority;
begin
  P := GetThreadPriority(FHandle);
  CheckThreadError(P <> THREAD_PRIORITY_ERROR_RETURN);
  Result := tpNormal;
  for I := Low(TThreadPriority) to High(TThreadPriority) do
    if Priorities[i] = P then Result := I;
end;

procedure TThread.SetPriority(Value: TThreadPriority);
begin
  CheckThreadError(SetThreadPriority(FHandle, Priorities[Value]));
end;


    Пиздэйшн.
    Ответить

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

      Минусование... Опять минусование...
      Если я начну минусовать, Вам тут всем не поздоровится. Софт для этого, как Вы все могли убедиться, я пишу отменный...
      Лучше не играйте с огнём. Не дразните дурака.
      Ответить

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

        Тут просто хостинг сомнительный. Софт откровенно печальный же.
        Ответить

      • ava 1024-- # Ссылка на оригинал 0 ⇈

        Надо уже устроить соревнование ботоводов. Каждый оставляет комментарий и ставит ему столько плюсов/минусов, сколько сможет.
        Ответить

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

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

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

    ↑
    8
    ↓