谁帮我解释下这个代码？

[wealsh]

TClientDataThread = class(TThread)
private
public
ListBuffer :TStringList;
TargetList :TStrings;
procedure synchAddDataToControl;
constructor Create(CreateSuspended: Boolean);
procedure Execute; override;
procedure Terminate;
end;

[linzhengqun]

这是一个线程类。就这样，

• 打赏
• 举报

回复 赞

[fsybaby]

声明了一个线程类，TClientDataThread是Thread（Delphi中的原始线程类）派生出来的，
public段中声明了一些公共变量（作用我不知道），Execute是函数的重载（我也不太清楚，好像凡是带线程的代码都有这条语句）

• 打赏
• 举报

回复 赞

[maliangcat01]

同上,并不复杂.

• 打赏
• 举报

回复 赞

[maliangcat01]

TClientDataThread = class(TThread)
private
public
ListBuffer :TStringList;//应该是缓冲区.
TargetList :TStrings;
procedure synchAddDataToControl;//这个函数可能用在vcl同步上.
constructor Create(CreateSuspended: Boolean);//构造函数,
procedure Execute; override;//此函数必须被覆盖(它是线程的主函数)
procedure Terminate;
end;

• 打赏
• 举报

回复 赞