unit2.pas

来自「example of security system」· PAS 代码 · 共 50 行

unit Unit2;

interface

uses
  Classes, SysUtils;

type
  tSender = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    n:integer;
    slp:integer;
  end;

implementation

uses Unit1;

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure tSender.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ tSender }

procedure tSender.Execute;
begin
  { Place thread code here }
  repeat
   inc(Form1.f);
   if form1.f>form1.sz then
    form1.f:=1;
   form1.a[form1.f]:=n;
   sleep(slp);
  until terminated;
end;

end.