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

领测软件测试网

　　end;
　　constructor tbhh.create(flag:boolean);//创建该线程的一实例并对有关的变量进行初始化
　var i,j:integer;
　begin
　　inherited create(flag);
　　q:=tbitmap.create;q.loadfromfile('e:\八皇后\backing.bmp');
　　c:=tbitmap.create;c.loadfromfile('e:\八皇后\queen.bmp');
　　for i:=1 to 8 do
　　　for j:=1 to 8 do
　　　　a[i,j]:=0; tt:=0;
　　　end;
　　end.

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