DELPHI下的多線程程序設計(1) 
--------------------------------------------------------------------------------
作者：不詳 　來源于：不詳 　發布時間：2005-3-22 8:14:52 
DELPHI下的多線程程序設計(1) 

　　　　我們知道，win95或winNT都是“多線程”的操作系統，在DELPHI 2．0中，我們可以充分利用這一特性，編寫出“多線程”的應用程序。 
　　對以往在DOS或16位windows下寫程序的人來說，“多線程”仍然是陌生的，但如同以前我們從DOS下的單任務過渡到windows3．1下的多任務，如今我們又必須過渡到“多線程”領域，畢竟計算機時代是在不斷發展的。不過，幸運的是，在DELPHI2．0下進行多線程程序設計并不需要我們去學習龐大的WIN32API函數，我們可以利用DELPHI下標準的多線程類TThread來完成我們的工作。 
　　TThread是一個abstract（抽象）類，也就是說，并不需要根據TThread來聲明變量（而且根據TThread聲明的變量也是完全無用），我們要做的是把TThread作為基類，用繼承的形式來生成子類。實際上，根據TThread來寫多線程應用程序是非常容易的。 
　　下面就是一個基本的繼承TThread生成的多線程類。 
　　QuerThrd．Pas 
　　unitQuerThrd； 
　　interface 
　　uses 
　　Classes，DBTables； 
　　type 
　　TQueryThreadΚclass（TThread） 
　　private 
　　fQuery：tQuery； 
　　protected 
　　procedureExecute；override； 
　　public 
　　constructorCreate（Suspended：Boolean；Query：TQuery）； 
　　end； 
　　implementation 
　　constructor 
　　TQueryThread．Create（Suspended：Boolean；Query：TQuery）； 
　　begin 
　　inheritedCreate（Suspended）； 
　　fQuery：ΚQuery； 
　　FreeOnTerminate：ΚTrue； 
　　end； 
　　procedureTQueryThread．Execute； 
　　begin 
　　fQuery．Open； 
　　end； 
　　end． 
　　在上面這個簡單的例子中，我們構造了一個TThread的子類TQuery