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 --

本文介绍如何在Delphi中使用TThread类创建和管理线程,通过实例TClientDataThread展示线程的基本实现。
最低0.47元/天 解锁文章
2563

被折叠的 条评论
为什么被折叠?



