Delphi多线程学习（4）：临界区
临界区是一段代码，一次只允许一个线程执行这段代码。当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 其他线程如果要访问这段代码，一定要等前一个访问的线程结束才行。借用前面的比喻比作图书馆，临界区就像把图书馆设计成只有一个位置（现实中好像不太合理，不管了，反正这么个意思），当有一个人正在办理业务时，其他人只能等待那个人办完业务才能进去。
使用临界区的步骤：
1、声明一个TRLCriticalSection记录类型的变量如CS，必须是全局的；
2、使用前先初始化：InitializeCriticalSection(CS)；
3、EnterCriticalSection(CS); 线程进入临界区，其他线程需要等待
4、LeaveCriticalSection(CS); 线程离开临界区，其他线程可以访问了
5、DeleteCriticalSection(CS); 最后删除临界区
重写前文的例子，如下：
{主窗体代码}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
CS:TRTLCriticalSection; //全局临界区变量
implementation
uses MyThread;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
TMyThread.Create(False);
TMyThread.Create(False);
TMyThread.Create(False);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
InitializeCriticalSection(CS); //初始化
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
DeleteCriticalSection(CS); //删除
end;
end.{线程类}
unit MyThread;
interface
uses
Classes,StdCtrls,SysUtils,Windows;
type
TMyThread = class(TThread)
private
{ Private declarations }
str:String;
procedure AddList;
protected
procedure Execute
相关文档：
在编译delphi程序时会出现在些提示，全是E文的，现在给大家一个对照表，可以更好的理解错误提示信息！
';' not allowed before 'ELSE' ElSE前不允许有“;”
'' clause not allowed in OLE automation section 在OLE自动区段不允许“”子句
'' is not a type identifier 不是类型标识符
'' not prev ......
如何调试DLL，在这里就不再赘述了，但是，今天就碰到了一个特别奇怪的问题，参数设置正确，就是不能调试？？ 通过上网查资料，发现了问题，注意：
1， 将Project主菜单的Project Options对话框的Compiler页面Debugging选项中的 Debug informaton、Local symbols、Assertions复选框选中
2，将Tools主菜单的D ......
技术交流,DH讲解. 记得很早之前我就说过,数组和结构体在内存中其实一样的,他们都是连续分布的.
例如: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
这两个都占12字节,而且TMyStruct.A就是T3IntArray[0].
而我们知道在访问数组中某个元素的时候,只是在� ......
指针用法的例子：
1 var
2 X, Y: Integer; // X and Y 整数类型
3 &n ......
http://www.91v1.cn/bbs/read.php?tid-1797.html
我们提供的是全套,目前他们发的.社区已录制完毕.一根毛不少.
-------------------------------------------------------------------------------------------------------------------------
该教程由91v1社区免费提供.具体免费领码详情观看种子包,
--------------- ......
