бесконечный цикл

← →
барбос (2004-08-24 18:26) [0]

Подскажите пожалуйста где в программе писать бесконечный цикл. Если пробую в OnActivate- что то не то получается.

← →
Суслик © (2004-08-24 18:28) [1]

на фига?

← →
Ega23 © (2004-08-24 18:31) [2]

А вот тут:
program Personnel; uses Forms, Sysutils, WinProcs, windows, StrUtils, UDMpas in "UDMpas.pas" {DMpas: TDataModule}, UMain in "UMain.pas" {FMain}, .... ну тут дальше неважно.... var hnd:THandle; ss:string; begin ss:=ExtractFileName(paramstr(0) ); hnd:=CreateMutex(nil, false, PChar(ss) ); if GetLastError = ERROR_ALREADY_EXISTS then begin Beep(100,200); //MessageBeep ->in WinProcs bo:=ReleaseMutex(hnd); Exit; end; Application.Initialize; И вот тут его и вставляем: While (0=0) do begin end; Application.HelpFile:="Personnel.chm"; Application.CreateForm(TDMpas, DMpas); if not DMpas.LoginOK then begin DMpas.Free; DMpas:=nil; bo:=ReleaseMutex(hnd); Exit; end; Application.ProcessMessages; Application.CreateForm(TFMain, FMain); Application.Run; end. Верняк средство!

← →
Anatoly Podgoretsky © (2004-08-24 19:24) [3]

Писать можно где угодно, в том числе и в OnActivate - while true do;

← →
y-soft © (2004-08-24 21:32) [4]

Если уж и применять бесконечные циклы (тем более в обработчиках событий), то только с гарантированным выходом из тела цикла

← →
Алхимик © (2004-08-24 21:38) [5]

> [4] y-soft © (24.08.04 21:32)
> Если уж и применять бесконечные циклы (тем более в обработчиках
> событий), то только с гарантированным выходом из тела цикла

Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный цикл опроса телеметрии и передачи её на Землю. На кой ляд там гарантированный выход?

← →
GuAV © (2004-08-24 21:39) [6]

> что то не то получается.

А что должно получится? Неужели [5] ? ;-)

← →
барбос (2004-08-24 23:26) [7]

>А что должно получится? Неужели [5] ? ;-)

Форма не отрисовывается!

← →
Cobalt © (2004-08-24 23:28) [8]

2 Алхимик © (24.08.04 21:38) [5]
А что же вы, прогу/поток киляете, когда надо остановить прогу по перибытию на землю?

← →
Алхимик © (2004-08-24 23:31) [9]

> [8] Cobalt © (24.08.04 23:28)

Вспомни как станция Мир на землю прибыла. :)

← →
y-soft © (2004-08-25 01:28) [10]

>Алхимик © (24.08.04 21:38) [5]

Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный цикл опроса телеметрии и передачи её на Землю. На кой ляд там гарантированный выход?

На Delphi, что ли, писАли? :))

> [10] y-soft © (25.08.04 01:28)
> >Алхимик © (24.08.04 21:38) [5]
>
> Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный
> цикл опроса телеметрии и передачи её на Землю. На кой ляд
> там гарантированный выход?
>
> На Delphi, что ли, писАли? :))

Ага. Вчера только дописАл, оттестить не успел. Кому что на голову
упадёт - звиняйте. :)

> Форма не отрисовывается!

Понятное дело:

When a form is being created and its Visible property is true, the following events occur in the order listed:

1. OnCreate
2. OnShow
3. OnActivate
4. OnPaint

Сделай вход в вечный цикл через PostMessge...

бесконечный цикл Найти похожие ветки