delphi中Thread线程的使用方法

  TClientDataThread = class(TThread)

  private

  public

    ListBuffer :TStringList;

    TargetList :TStrings;

    procedure synchAddDataToControl;

    procedure showme;

    constructor Create(CreateSuspended: Boolean); // 如果不做特殊性处理，这里可除去；

    procedure Execute; override;

    procedure Terminate; // 如果不做特殊性处理，这里可除去；

  end;

//------------- TClientDataThread impl -----------------------------------------

constructor