添加类属性

说明:
1. 属性可以设置为只读,只写,读写.
2. 通常要定义一个私有变量,通过属性改变或获取该私有变量值.
3. 属性可以设置读写的方法也可以不设置读写的方法.

private
    fis_MK:boolean;//是否模考, true:模考 false:正考
    m_ThreadRunning:boolean;    
    ReceiveThread:TMyReceiveThread;

public
    property ReceiveThread:TMyReceiveThread read m_Thread;//只读属性
    property ThreadRunning:Boolean read m_ThreadRunning write m_ThreadRunning; 读写属性,只是对简单类型变量读写,可以不设置读写的具体方法.
    property isMK:Integer read Get_isMK write Set_isMK;//读写属性,可以设置具体方法来改变属性值.

//1. 通过方法获取和设置属性值
function TZFPubLib.Get_isMK:Integer;
begin
  Result := fis_MK ;
end;

function TZFPubLib.Set_isMK(Value:boolean):Integer;
begin
  fis_MK := Value;
end;

//2.