www.pudn.com > yuyin.rar > Unit2.pas

unit Unit2; 
 
interface 
 
uses 
  classes,SysUtils; 
type 
  Tyyjd=class(tthread) 
  protected 
  procedure execute;override; 
  end; 
implementation 
 
uses Unit1; 
 
procedure tyyjd.execute ; 
 begin 
  form1.ClientDataSet1.Next; 
 end; 
end.