Delphi多线程学习（7）：事件Event
Event事件用法与Mutex差不多，但它可以使用：SetEvent（启动运行）ResetEvent（暂停运行）、PulseEvent（执行一次后立即暂停）。
先看一下创建函数：CreateEvent(
lpEventAttributes: PSecurityAttributes;
bManualReset: BOOL;
bInitialState: BOOL;
lpName: PWideChar ): THandle; stdcall;
（lpEventAttributes参数，指向TSecurityAttributes记录的指针，一般可以缺省填入nil值；
bManualReset参数，是否可手动暂停，True为可手动，False为事件对象控制一次后将立即暂停；
bInitialState参数，初始状态，True为事件对象创建后处可运行状态，False为暂停状态；
lpName参数，事件的名称；
返回值为句柄。）
例子代码：
{主窗体代码}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
btnSetEvent: TButton;
btnResetEvent: TButton;
相关文档：
例如以下代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure one();
function two(x,y:integer):integer;
private
......
Delphi提供的字符串函数里有一个Pos函数，它的定义是：
function Pos(Substr: string; S: string): Integer;
它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。
使用pos函数来查找字符第一次出现的位置
var
str1:string;
i,j:integer;
begin
str1:='dsf465 ......
Delphi使用资源文件全攻略
在通常情况下使用delphi设计程序，都是将字符串、图像等资源直接使用delphi提供的vcl控件加到*.dfm中，这样做会合修改这些资源时带来不便，如果资源被多次引用，这些资源在程序启动时都被加载到内存中，非常耗费系统资源。因此，这就需要一种新的引用资源的文件：资源文件。资源 ......
临界区是一段代码，一次只允许一个线程执行这段代码。当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 其他线程如果要访问这段代码，一定要等前一个访问的线程结束才行。借用前面的比喻比作图书馆，临界区就像把图书馆设计成只有一个位置（现实中好像不太合理，不管了，反正这么个意思），当有一个人正在办 ......
