PRIVATE |
Privé |
|---|---|
| Free Pascal |
Syntaxe
|
type NomForme = class(Form) private Déclarationsprivées end; |
Paramètres
| Nom | Description |
|---|---|
| Déclarationsprivées | Ce paramètre permet d'indiquer les définitions privés |
| NomForme | Ce paramètre permet d'indiquer le nom de la classe |
Description
Ce mot réservé permet d'indiquer que les définitions suivantes sont accessibles uniquement dans l'unité où est définit l'objet.
Exemple
Voici des exemples de l'utilisation de cette instruction :
- Program PrivateSamples;
-
- {$MODE OBJFPC}
- {$STATIC ON}
-
- Type
- MyObject = Class
- Private
- Y:Boolean;
- Z:Integer;
- Public
- Property X:Boolean Read Y Write Y;
- Function GetY:Boolean;
- End;
-
- Function MyObject.GetY:Boolean;Begin
- Z:=12;
- 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