基于Delphi的“八皇后”問題動態實現[2]

領測軟件測試網

　bhh:=tbhh.create(false);
　button1.enabled:=false;
　button2.enabled:=true;
　button3.enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　if dstep=false then begin bhh.suspend; dstep:=true end
　else bhh.resume
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
　dstep:=false; bhh.resume;
end;
　�。�2）代碼單元unit2：

文章來源于領測軟件測試網 http://www.kjueaiud.com/