PROPERTY |
Propriété |
---|---|
Delphi/Kylix/Lazarus |
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;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils;
-
- 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 vraiVoir également
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - Index
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - Private
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - Protected
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - Public
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - Published