✨Đặc tính (lập trình)

// public property
public int Color 
{  
    get
    {
        return this.color;
    }
    set 
    {
        if (value > 0) {
            this.color = value;
        }
    }
}

}

// another silly example: pen.Color += 1; // a lot clearer than "pen.set_Color(pen.get_Color() + 1)"!

int getprop() { return i; }

__declspec(property(get = getprop, put = putprop)) int the_prop; };

int main() { S s; s.the_prop = 5; return s.the_prop; }

// public get property
public int color () {
    return m_color;
}

// public set property
public void color (int value) {
     m_color = value;
}

}

// the set property can also be used in expressions, just like regular assignment int theColor = (pen.color = 0xFF0000);

// public get property
@property public int color () {
    return m_color;
}

// public set property
@property public void color (int value) {
    m_color = value;
}

}

function TPen.GetColor: TColor; begin Result:= FColor; end;

procedure TPen.SetColor(const AValue: TColor); begin if FColor <> AValue then FColor:= AValue; end;

(* Delphi also supports a 'direct field' syntax -

property Color: TColor read FColor write SetColor;

or

property Color: TColor read GetColor write FColor;

where the compiler generates the exact same code as for reading and writing a field. This offers the efficiency of a field, with the safety of a property. (You can't get a pointer to the property, and you can always replace the member access with a method call.) *)

member this.Color
    with get() = _color
    and set value = _color <- value

end

    public function get color():uint {
        return _color;
    }

    public function set color(value:uint):void {
        _color = value;
    }
}

}

@implementation Pen @synthesize colour; // Compiler directive to synthesise accessor methods. // It can be left behind in Xcode 4.5 and later. @end

function __set($property, $value) {
    if ($property == 'Color') { 
        return $this->_color = $value;
    }
}

function __get($property) {
    if ($property == 'Color') {
        return $this->_color;
    }
}

}

@property
def color(self):
    return self._color

@color.setter
def color(self, color):
    self._color = color

# Defines a getter for the @color field
def color
    @color
end

# Defines a setter for the @color field
def color=(value)
    @color = value
end

end

pen = Pen.new pen.color = ~pen.color # Bitwise complement

Private _color As Integer ' Private field

Public Property Color() As Integer ' Public property
    Get
        Return _color
    End Get
    Set(ByVal value As Integer)
        _color = value
    End Set
End Property

End Class

' Set value pen.Color = 1

' Get value Dim color As Int32 = pen.Color

Public Property Color() As Integer ' Public property

End Class

' Set value pen.Color = 1

' Get value Dim color As Int32 = pen.Color

Public Property Get Color() As Long Color = m_Color End Property

Public Property Let Color(ByVal RHS As Long) m_Color = RHS End Property