我在From1中定义了一个算法procedure  Banker_old;
设置了两个按纽"开始" "停止"
按"开始"对算法进行调用,
然后我想在算法正在运行的时候,按"停止"算法就停止执行了,但是不要退出窗体(Form1)
我用halt什么的他都直接连窗体都退出了...怎么弄?谢谢

請先po上你的源碼, 直接就源碼討論修正會更有效益!

[code delphi]
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
ToolButton1.Enabled:=false;
ToolButton2.Enabled:=false;
ToolButton3.Enabled:=false;
ToolButton4.Enabled:=false;
TabSheet1.Visible:=false;
TabSheet2.Visible:=false;
TabSheet3.Visible:=false;
AdvStringGrid4_Create;
AdvStringGrid3_Create;
Banker_Old;
// Banker_New;
end;

procedure TForm1.ToolButton12Click(Sender: TObject);
begin
// Application.Terminate;
ToolButton1.Enabled:=true;
ToolButton2.Enabled:=true;
ToolButton3.Enabled:=true;
ToolButton4.Enabled:=true;
ToolButton12.Enabled:=false;
TabSheet1.Visible:=true;
TabSheet2.Visible:=true;
TabSheet3.Visible:=true;
end;

//传统银行家算法计算机仿真
procedure TForm1.Banker_Old;
var
i:integer;
begin

DBtoArray_old;
message_old:='判断Request[i]<=Need[pid-1,i-1]?';
Memo2.Clear;
Memo2.Lines.Add(message_old);
delay;
for i:=1 to rnum do
begin
if(request[i]>need_old[pid-1,i-1]) then
begin
message_old:='请求出错!进程' inttostr(pid) '请求资源数己超过其所需的最大值!算法结束!';
Memo2.Clear;
Memo2.Lines.Add(message_old);
exit;
end;
end;
message_old:='Request[i]<=Need[pid-1,i-1]成立' #13 '下一步判断request[i]<=available_old[i-1]?';
Memo2.Clear;
Memo2.Lines.Add(message_old);
delay;
for i:=1 to rnum do
begin
if(request[i]>available_old[i-1]) then
begin
message_old:='系统尚无足够资源!让进程' inttostr(pid) '等待!算法结束!';
Memo2.Clear;
Memo2.Lines.Add(message_old);
exit;
end;
end;
message_old:='request[i]<=available_old[i-1]成立' #13 '下一步进行试探性分配';
Memo2.Clear;
Memo2.Lines.Add(message_old);
delay;
for i:=1 to rnum do
begin
available_old[i-1]:=available_old[i-1]-request[i];
allocation_old[pid-1,i-1]:=allocation_old[pid-1,i-1] request[i];
need_old[pid-1,i-1]:=need_old[pid-1,i-1]-request[i];
AdvStringGrid3.Cells[rnum i,pid 1]:=inttostr(need_old[pid-1,i-1]);
AdvStringGrid3.Cells[rnum*2 i,pid 1]:=inttostr(allocation_old[pid-1,i-1]);
end;
message_old:='试探性分配完成' #13 '下一步进行安全性检查';
Memo2.Clear;
Memo2.Lines.Add(message_old);
delay;
if(security_check_old) then
begin
message_old:='试探性分配后系统安全,允许分配!允许修改数据库!';
Memo2.Clear;
Memo2.Lines.Add(message_old);
end
else begin
message_old:='试探性分配将导致系统不安全,不允许分配!不允许修改数据库!';
Memo2.Clear;
Memo2.Lines.Add(message_old);
end;

end;

procedure TForm1.delay;
begin

if(auto_flag)then delay2(3000)
else delay1;

end;
procedure TForm1.delay1; //延时函数,MSecs单位为毫秒(千分之1秒)
var
FirstTickCount, Now: Longint;
begin
stop_ms:=100000000;
FirstTickCount := GetTickCount();
repeat
Application.ProcessMessages;
Now := GetTickCount();
until(Now - FirstTickCount >= stop_ms) or (Now < FirstTickCount);
end;
procedure TForm1.delay2(MSecs: Longint); //延时函数,MSecs单位为毫秒(千分之1秒)
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount();
repeat
Application.ProcessMessages;
Now := GetTickCount();
until(Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

[/code]

照你的说法，如果你只在一个主线程里处理的话，似乎该是：

var
AFlag: Boolean;

procedure DoYourMeghod;
begin
AFlag := False;
while tru do
begin
Do some method.....
Application.Procemessage;
if AFlag then Break;
end;
end;


procedure TForm1.Button1Click(Sender: TObject)
beign
AFlag := True; //设置为 True, 则上述循环就跳出来了嘛。
end;
===================引 用 keykill 文 章===================
我在From1中定义了一个算法procedure Banker_old;
设置了两个按纽"开始" "停止"
按"开始"对算法进行调用,
然后我想在算法正在运行的时候,按"停止"算法就停止执行了,但是不要退出窗体(Form1)
我用halt什么的他都直接连窗体都退出了...怎么弄?谢谢

感觉这方法很巧妙啊,我试试,谢谢

我在每个delay后面都加上条件
Application.Processmessages;
if stop then Break;
感觉"停止"能达到预期效果,谢谢了!