| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как корректно организовать "ждущую" функцию? [D7, WinXP]

TheEd ©   (2007-11-23 09:34:00) 

Господа мастера, вопрос в следующем (абстрагировавшись от конкретной задачи):
Есть форма на которой ряд элементов уравления, напр. кнопок;
есть некий набор действий, логически связанный, назовём его SomeActions, состоящее напр. в нажатии на кнопки в определённом порядке;
Выполнение SomeActions можно отследить, напр. по установленному флагу WasFinished или WasBreaked (флаги устанавливаются в зависимости от последовательности нажатий);

Требуется:
в модуле главной формы написать функцию
RunSomeActions : boolean;
которая "ждёт" выполнения SomeActions и возвращает его результат.
При кажущейся тривиальности, или я туплю, но что то не соображу. Решил пока так, но это криво (к примеру, диспетчер задач во время выполнения этой функции показывает 100% загрузку):

function RunSomeActions : boolean;
begin
 Result := false;
 Repeat
   Result := WasFinished;
   Application.ProcessMessages;  
 Until Result or WasBreaked;
end;


---

TheEd   (2007-11-26 08:38:00) [1]

> Сделай в конце-концов таймер и на него повесь проверку флагов.

нет, это не то!
функция должна ждать. Вариант Сергей М. подошёл.

---

Ricks   (2007-11-25 19:13:00) [2]

Сделай в конце-концов таймер и на него повесь проверку флагов.

---

TheEd   (2007-11-23 22:03:00) [3]

Спасибо, попробую

---

MetalFan   (2007-11-23 13:57:00) [4]

вместо частого вызова ProcessMessages лучше вызывать HandleMessage

---

Leonid Troyanovsky   (2007-11-23 12:54:00) [5]

> TheEd   (23.11.07 09:34)  

http://www.rsdn.ru/Forum/?mid=573413
http://www.rsdn.ru/Forum/Message.aspx?mid=500558&only=1

--
Regards, LVT.

---

Сергей М.   (2007-11-23 10:09:00) [6]

function SomeMainForm.RunSomeActions : boolean;
var
 Msg: TMsg;
begin
 Result := False;
 while not (WasFinished or WasBreaked) do
 begin
   if GetMessage(Msg, 0, 0, 0) then
   begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
   end else Exit;
 end;
 Result := True;
end;


---

Anatoly Podgoretsky   (2007-11-23 09:39:00) [7]

> TheEd  (23.11.2007 09:34:00)  [0]

Так ты ничего не делаешь, а только греешь процессор. Перейди на синхронные вызовы. Можно и на потоки, с обработкой OnTerminate и изменением логики. В крайнем случае вставь Sleep(1)

---

TheEd   (2007-11-23 09:36:00) [8]

забыл дописать в примере имя формы:
function SomeMainForm.RunSomeActions : boolean;
begin
Result := false;
Repeat
  Result := WasFinished;
  Application.ProcessMessages;  
Until Result or WasBreaked;
end;

---

Наверх