基于Delphi的“八皇后”问题动态实现[2]

领测软件测试网

uses unit1;
procedure Tbhh.Execute;
begin
　hsu(1);
　form1.button1.enabled:=true;
　form1.button2.enabled:=false;
　form1.button3.enabled:=false;
end;

procedure tbhh.prt;//显示
　var i,j,ix,iy:integer;
　s:real;iis:string[2];
begin
　str(tt:2,iis);
　form1.label1.caption:='第'+iis+'幅';
　form1.paintbox1.canvas.draw(0,0,q);
　for i:=1 to 8 do
　　for j:=1 to 8 do

文章来源于领测软件测试网 https://www.ltesting.net/