📄 007.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题文档－程序应用-->DELPHI下的多线程程序设计</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题文档－程序应用 DELPHI下的多线程程序设计">
<META NAME="description" CONTENT=" - DELPHI专题文档－程序应用 - DELPHI下的多线程程序设计">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index6.html">返回</a>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">DELPHI下的多线程程序设计</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
我们知道，win95或winNT都是“多线程”的操作系统，在DELPHI2．0中，我们可以充分利用这一特性，编写出“多线程”的应用程序。<br>
对以往在DOS或16位windows下写程序的人来说，“多线程”仍然是陌生的，但如同以前我们从DOS下的单任务过渡到windows3．1下的多任务，如今我们又必须过渡到“多线程”领域，毕竟计算机时代是在不断发展的。不过，幸运的是，在DELPHI2．0下进行多线程程序设计并不需要我们去学习庞大的WIN32API函数，我们可以利用DELPHI下标准的多线程类TThread来完成我们的工作。<br>
TThread是一个abstract（抽象）类，也就是说，并不需要根据TThread来声明变量（而且根据TThread声明的变量也是完全无用），我们要做的是把TThread作为基类，用继承的形式来生成子类。实际上，根据TThread来写多线程应用程序是非常容易的。<br>
下面就是一个基本的继承TThread生成的多线程类。<br>
<br>
QuerThrd．Pas<br>
unit QuerThrd；<br>
interface<br>
uses<br>
Classes，DBTables；<br>
<br>
type<br>
TQueryThread=class（TThread）<br>
private<br>
fQuery：tQuery；<br>
protected<br>
procedure Execute；override；<br>
public<br>
constructorCreate（Suspended：Boolean；Query：TQuery）；<br>
end；<br>
<br>
implementation<br>
constructor<br>
TQueryThread．Create（Suspended：Boolean；Query：TQuery）；<br>
begin<br>
inheritedCreate（Suspended）；<br>
fQuery：=Query；<br>
FreeOnTerminate：=True；<br>
end；<br>
<br>
procedure TQueryThread．Execute；<br>
begin<br>
fQuery．Open；<br>
end；<br>
end．<br>
<br>
在上面这个简单的例子中，我们构造了一个TThread的子类TQuery⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -