|
|
| Тема |
 Спиране на процес |
|
| Автор | Mишo (Нерегистриран) | |
| Публикувано | 15.01.05 15:51 |
|
|
|
Здравейте..
Тук се мъча със следния проблем - имам две процедури, в едната се върти постоянен цикъл, който трябва да спре при Stop =True и когато спре тази процедура сваля InProgres =False;
В другата процедура съответно правя Stop =True и в нея чакам за InProgres=False. И тук е проблема, InProgres никога не става False по този начин и цикълът става безкраен. Въпросът ми е , как да изляза от този цикъл, и да знам, че е прекратен.Опитавх различни варианти - съобщения, нишки, но явно бъркам техниката.. Помагайте
Ето и част от кода..
------------------------------------------------------
implementation
{$R *.dfm}
var Stop,InProgres:True;
procedure TForm1.Button1Click(Sender: TObject);
begin
Stop :=False;
InProgres:=True;
While Not Stop Do
Begin
Application.ProcessMessages;
Memo1.Lines.Add('Стартиран.');
end;
Memo1.Lines.Add('Спрян.') ;
InProgres:=False;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Stop :=True;
While InProgres Do
Application.ProcessMessages;
end;
------------------------------------------------------
Помагайте.
| |
| |
| 
|
|
