基于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.

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