Delphi TThread 和 CreateThread 简单区别

（快快是丹丹 原创）

一、写代码的时候碰到一个线程内存泄漏的问题：
描述：
创建线程： Delphi 自带的 TThread 类
强制结束： TerminateThread
结果 ： 会造成内存泄漏。

创建线程 ： CreateThread
强制结束：TerminateThread
结果 ： 不会造成内存泄漏。

二、若有CreateThread 的线程函数里面有需要动态分配内存的情况，则需要将 需要动态分配和释放内存放在线程函数外面，不能放在函数里面。若放在里面，线程函数自动结束时会造成内存泄漏，但是使用TerminateThread强制结束又没有内存泄漏。（这是一个很奇怪的现象，大家可以参照一下。可能我自己做的有不对的，也可以告诉我，一起学习的哈）

三、简述一下其中两个函数的使用方式

CreateThread(nil, 0, @线程函数名, nil（线程函数的参数，我这里无参就用的nil，若需要参数，网上有例子，大家可以看一下）, 0, id（TerminateThread强制结束时需要用到）);
注：使用CreateThread，一定要使用CloseHandle；

TerminateThread(id, 0（超时，我一般就设置立即结束为0）);

简单放置一段代码哈，里面有些小细节我会在后面注释的

type  TForm1 = class(TForm)  end;  procedure IPNetPrinter;stdcall; //此声明要放在implementation之前，类声明的end之后，且必须加上stdcallvar  Form1: TForm1;  Buf : Pointer;implementationprocedure IPNetPrinter;begin   //需要在线程里面执行的代码   //使用到了Buf   IsOneFinished  := True;//我自己设置的线程结束标记，是全局变量，具体看需求end;procedure TForm1.SearOne;var  TimeOut : Cardinal;  id      : Cardinal;  ThHand  : THandle;begin  try    //用 createthread 来创建线程并且    TimeOut := GetTickCount;    GetMem(Buf, 8192); //这样分配，在线程自动结束时才不会内存泄漏    ThHand := CreateThread(nil, 0, @IPNetPrinter, nil, 0, id);    CloseHandle(ThHand);    //上两句可以合并为CloseHandle(CreateThread(nil, 0, @IPNetPrinter, nil, 0, id));    while True do    begin      Sleep(10);      if (GetTickCount - TimeOut) > 90 * 1000 then      begin        TerminateThread(id, 0);        Break;      end;      Application.ProcessMessages;      if IsOneFinished then      begin        Break;        //线程自己结束      end;  finally    FreeMem(Buf);  end;    end;