国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Delphi > 正文

詳細教你如何使用delphi中thread的線程編程

2019-11-18 18:43:41
字體:
來源:轉載
供稿:網友
為什么要用線程,簡單一點來說吧,省得有些象我一樣的新手聽不懂,當你編完一個程序,例如是讀取文件的程序,如果你讀取的文件很大,你的程序如果不是通過線程來執行的話,你一動這個正在讀取文件的程序窗口,結果是什么,“死屏”就是你的程序根本拖不動,無法繼續做其它的事了,呵呵,如果你用線程,什么問題都解決了,廢話少講,要學的看以下文章吧。

       首先當然是打開你的delphi 6 ,點取菜單欄中的文件-新建-其它,彈出一個標簽窗口,選取new標簽,然后找到Thread Object,就是它了,雙擊它就行了,彈出一個類命名窗口,輸入mythread,當然名稱可由你自已來定的。這時程序自動創建一個unit,我這里是unit2,現在我們來看unit,代碼如下:

unit Unit2;

interface

uses
  Classes;

type
  mythread = class(TThread)
  PRivate
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ 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 mythread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ mythread }

procedure mythread.Execute;
begin
  { Place thread code here }
end;

end.

其中,你注意找到procedure mythread.execute;,應找到了吧,連我都看到了,這就是你剛才建立的線程了,那么接下來,我們要做的就是加入后臺執行的代碼,代碼要加在那里?不會吧,當然是加在
begin
 //這里就是加入程序代碼的地方了
end;
如果你要調用unit1上的控件,你可以在unit2上面的uses中加入unit1就行了,記住,在unit1里的implementation后面增加uses unit2,這樣你就可在unit1中引用線程了,引用的方法很簡單,就是,就是,就是,好啦,不賣關了,就是mythread.Create(false);。OK 這就是delphi中的線程,呵呵。

本人剛學delphi 有什么地方說得不對的,歡迎評批指證,我的聯系信箱netboy@cnpick.com謝謝!


上一篇:Self-Delete程序之Delphi版本,終于搞定了。

下一篇:在Delphi中控制掃描儀

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 石首市| 安康市| 禹城市| 昌都县| 堆龙德庆县| 静乐县| 云霄县| 称多县| 上饶市| 泸溪县| 吴江市| 监利县| 卓资县| 新津县| 即墨市| 洞口县| 定日县| 甘南县| 抚顺县| 平遥县| 合江县| 昌乐县| 博客| 赤水市| 紫阳县| 商丘市| 永和县| 沁源县| 连州市| 克什克腾旗| 焦作市| 子长县| 同心县| 乌恰县| 芷江| 宝鸡市| 分宜县| 武清区| 平乐县| 通州市| 张家界市|