📄 wzjh37.htm
字号:
<html><head><title>DELPHI32下的多线程程序设计</title></head><body><p align="center"><font size="6" color="#0000FF">DELPHI32下的多线程程序设计 </font></p><div align="center"><center><table border="0" width="80%"> <tr> <td width="100%">梁毅 李韬 <p> 我们知道，win95或winNT都是“多线程”的操作系统，在DELPHI2．0中，我们可以充分利用这一特性，编写出“多线程”的应用程序。<br> <br> 对以往在DOS或16位windows下写程序的人来说，“多线程”仍然是陌生的，但如同以前我们从DOS下的单任务过渡到windows3．1下的多任务，如今我们又必须过渡到“多线程”领域，毕竟计算机时代是在不断发展的。不过，幸运的是，在DELPHI2．0下进行多线程程序设计并不需要我们去学习庞大的WIN32API函数，我们可以利用DELPHI下标准的多线程类TThread来完成我们的工作。<br> <br> TThread是一个abstract（抽象）类，也就是说，并不需要根据TThread来声明变量（而且根据TThread声明的变量也是完全无用），我们要做的是把TThread作为基类，用继承的形式来生成子类。实际上，根据TThread来写多线程应用程序是非常容易的。<br> <br> 下面就是一个基本的继承TThread生成的多线程类。<br> <br> QuerThrd．Pas<br> <br> unitQuerThrd；<br> <br> interface<br> <br> uses<br> <br> Classes，DBTables；<br> <br> type<br> <br> TQueryThreadΚclass（TThread）<br> <br> private<br> <br> fQuery：tQuery；<br> <br> protected<br> <br> procedureExecute；override；<br> <br> public<br> <br> constructorCreate（Suspended：Boolean；Query：<br> TQuery）；<br> <br> end；<br> <br> implementation<br> <br> constructor<br> <br> TQueryThread．Create（Suspended：Boolean；Quer<br> y：TQuery）；<br> <br> begin<br> <br> inheritedCreate（Suspended）；<br> <br> fQuery：ΚQuery；<br> <br> FreeOnTerminate：ΚTrue；<br> <br> end；<br> <br> procedureTQueryThread．Execute；<br> <br> begin<br> <br> fQuery．Open；<br> <br> end；<br> <br> end．<br> <br> 在上面这个简单的例子中，我们构造了一个TThread的子类TQuery⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -