unit Board; private
m_RunSimu: Boolean; //模拟模式
m_Running: Boolean; //长时间动作过程中 public
property RunSimu: Boolean read m_RunSimu write m_RunSimu; //这两句代码中read, write意思?
property Running: Boolean read m_Running; // Running - read - m_Running关系
end;
m_RunSimu: Boolean; //模拟模式
m_Running: Boolean; //长时间动作过程中 public
property RunSimu: Boolean read m_RunSimu write m_RunSimu; //这两句代码中read, write意思?
property Running: Boolean read m_Running; // Running - read - m_Running关系
end;
TAbc=Class(TObject)
private
m_RunSimu: Boolean; //模拟模式
m_Running: Boolean; //长时间动作过程中 public
property RunSimu: Boolean read m_RunSimu write m_RunSimu; //这两句代码中read, write意思?
property Running: Boolean read m_Running; // Running - read - m_Running关系
end;然后你在程序的其他地方定义了一个TAbc变量:
var
Abc: TAbc;
R: Boolean;
begin
Abc:=TAbc.Create;
Abc.RunSimu:=True;
{这时:Abc对象的私有域m_RunSimu就变成True,因为write m_RunSimu;}
R:=Abc.RunSimu;
{这时R为True,因为Boolean read m_RunSimu;
....
end;
表示RunSimu 可读写property Running: Boolean read m_Running; // Running - read - m_Running关系
Running属性取m_Running的值