type
TtestThread = class(TThread)
private
pP1 : String;
public
property P1: string read pP1 write pP1;
// property P1: string read String write String; //為何不能直接用 String 宣告
protected
procedure Execute; override;
end;

PS: 不好意思, 好像應該貼在 "Object Pascal物件導向討論區(Delphi)" 比較合適, 版主或站長可以幫忙移動一下嗎 ? 謝謝

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！