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