Section courante

A propos

Section administrative du site

PROPERTY

Propriété
Free Pascal  

Syntaxe

type
nomclasse = class
...
protected
property nompropriete:typededonnees read typededonnees;
property nompropriete:typededonnees read typededonnees write typededonnees;
property nompropriete:typededonnees read typededonnees write typededonnees stored valeur;
...
end;
type
nomclasse = class(base)
...
protected
property nompropriete write typededonnees;
published
property nompropriete;

property nompropriete stored valeur default valeur;
...
end;

Paramètres

Nom Description
nomclasse Ce paramètre permet d'indiquer le nom de la classe
nompropriete Ce paramètre permet d'indiquer le nom de la propriété
typededonnees Ce paramètre permet d'indiquer le type de données de la propriété en lecteur et/ou écriture
valeur Ce paramètre permet d'indiquer la valeur de la propriété

Description

Ce mot réservé permet d'indiquer une propriété dans un objet laquelle est utilisé comme une variable dans l'objet mais traiter comme une méthode.

Exemple

Voici des exemples de l'utilisation de cette instruction :

  1. Program PropertySamples;
  2.  
  3. {$MODE OBJFPC}
  4. {$STATIC ON}
  5.  
  6. Type
  7.  MyObject = Class
  8.   Private
  9.   Y:Boolean;
  10.   Public
  11.   Property X:Boolean Read Y Write Y;
  12.   Function GetY:Boolean; 
  13.  End;
  14.  
  15. Function MyObject.GetY:Boolean;Begin
  16.  GetY:=Y;
  17. End;
  18.  
  19. Var
  20.  CurrObject:MyObject;
  21.  
  22. BEGIN
  23.  CurrObject.Create;
  24.  CurrObject.X:=True;
  25.  If(CurrObject.GetY)Then Begin
  26.   WriteLn('Valeur de Y est vrai');
  27.  End
  28.   Else
  29.  Begin
  30.   WriteLn('Valeur de Y est fausse');
  31.  End;
  32. END.

on obtiendra le résultat suivant :

Valeur de Y est vrai

Dernière mise à jour : Dimanche, le 28 février 2016