算法停止问题 |
答題得分者是:pcplayer99
|
keykill
一般會員 發表:5 回覆:8 積分:2 註冊:2009-03-21 發送簡訊給我 |
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
|
keykill
一般會員 發表:5 回覆:8 積分:2 註冊:2009-03-21 發送簡訊給我 |
[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] |
pcplayer99
尊榮會員 發表:146 回覆:790 積分:632 註冊:2003-01-21 發送簡訊給我 |
照你的说法,如果你只在一个主线程里处理的话,似乎该是:
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什么的他都直接连窗体都退出了...怎么弄?谢谢 |
keykill
一般會員 發表:5 回覆:8 積分:2 註冊:2009-03-21 發送簡訊給我 |
|
keykill
一般會員 發表:5 回覆:8 積分:2 註冊:2009-03-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |