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 :
- Program PropertySamples;
-
- {$MODE OBJFPC}
- {$STATIC ON}
-
- Type
- MyObject = Class
- Private
- Y:Boolean;
- Public
- Property X:Boolean Read Y Write Y;
- Function GetY:Boolean;
- End;
-
- Function MyObject.GetY:Boolean;Begin
- GetY:=Y;
- End;
-
- Var
- CurrObject:MyObject;
-
- BEGIN
- CurrObject.Create;
- CurrObject.X:=True;
- If(CurrObject.GetY)Then Begin
- WriteLn('Valeur de Y est vrai');
- End
- Else
- Begin
- WriteLn('Valeur de Y est fausse');
- End;
- END.
on obtiendra le résultat suivant :
Valeur de Y est vrai
Dernière mise à jour : Dimanche, le 28 février 2016