关于多线程查询！！

Question

《delphi开发人员指南》有介绍
 用线程同步查询.

Answer 1

下面就是一个简单的多线程查询的例子：
　　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；Quer
y：TQuery）；　　begin　　inheritedCreate（Suspended）；　　fQuery：ΚQuery；　　FreeOnTerminate：ΚTrue；　　end；　　procedureTQueryThread．Execute；　　begin　　fQuery．Open；　　end；　　end．