......线程中参数传递的问题......
线程搜索数据库的一个程序,编译老出错,不知道是怎么回事。
procedure addThred.Execute;
var i:integer;
s:string;
begin
stop:=true;
i:=1;
while stop do
begin
s:=inttostr(i);
Synchronize( checkdata(s) );//此处出错
form1.Label2.Caption:=s;
i:=i+1;
end;
end;
procedure addThred.checkdata(key:string);
begin
check(key);//访问数据库的过程
end;
delphi的提示我越看越胡涂,那位高手请指点一下!!!