unit2.~pas

普通的多线程例子,给刚学多线程的人学习用的,呵呵 啊

unit Unit2;

interface

uses
Classes,SysUtils;

 type
  tdataput=class(Tthread)
  private
  FDATA_NO:integer;
  protected
  procedure execute;override;
  public
  constructor create(T_NO:integer);
 end;
implementation
uses unit1;
constructor tdataput.create(t_no:integer);
begin
inherited create(false);
fdata_no:=t_no;
freeonterminate:=true;
end;
procedure tdataput.execute;
var
i:integer;
begin
for i:=0 to 1000 do begin
       // break;
     form1.Memo1.Lines.Add(inttostr(i));

     end;
     form1.Timer1.Enabled:=false;
end;



end.