zoukankan      html  css  js  c++  java
  • delphi 多线程

    弄个多线程老是报地址错误的错。。汗Σ( ° △ °|||)︴。。

    弄了半天才发现create的时候错了。。居然直接用hthread.create(False)。。。尼玛hthread这个都没赋值的。。

    下面贴代码,如何用Tthread创建多线程。

    unit gateServer;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls, ScktComp,IDHttp,StrUtils,HttpApp;
    
        type
        AutoGateThread = class(TThread)
        protected
         procedure Execute(); override;
        end;

        type
        TFrmMain = class(TForm)

        procedure Button1Click(Sender: TObject);

        end;

    var
      FrmMain: TFrmMain;
      hthread : AutoGateThread;
    
    implementation
     uses superobject;
    {$R *.dfm}
    
    procedure TFrmMain.Button1Click(Sender: TObject);
    begin
    hthread := AutoGateThread.create(False);
    end;
    procedure AutoGateThread.Execute();
    var i:Integer;
    begin
      inherited;
        for i:=0 to 1000 do
        begin
        sleep(5000);
        ShowMessage('continue');
       end;
    end;
    
    end.

     是不是很简单。

  • 相关阅读:
    网络流 方阵移动
    NOI2019滚粗记
    PKUSC2019游记
    CQOI十二省联考游记
    数学结论题 书堆
    计算几何 大灾变
    51NOD 1773 A国的贸易
    BZOJ 3944
    51Nod 1238
    NOIP2018游记
  • 原文地址:https://www.cnblogs.com/feiyunaima/p/6344274.html
Copyright © 2011-2022 走看看