数据结构
为了对该问题的执行过程进行控制,需将该问题中的主要数据及相应的操作定义成一个线程类。方法:在New菜单中单击Other选项,在对话框中选Thread object,在classs name中输线程类的类名。具体定义如下:
type
Tbhh = class(TThread)
private
a:array[1..8,1..8]of integer;
tt:integer;
q,c:Tbitmap;
procedure prt;
function pd(i,j:integer):boolean;
procedure hsu(i:integer);
protected
文章来源于领测软件测试网 https://www.ltesting.net/