unit2.pas

来自「delphi 利用usb高速数据采集、及图形打印源代码」· PAS 代码 · 共 49 行

unit Unit2;

interface

uses
  Classes,unit1,Windows, Messages, SysUtils, Variants, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  mymath1 = class(TThread)
         //edit14:tedit;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor create;
  end;

implementation

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

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

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

{ mymath1 }

  constructor mymath1.create;
       begin
         inherited create(false);
       end;
procedure mymath1.Execute;
var
x:integer;
begin

end;


end.