PUBLIC |
Publique |
|---|---|
| Free Pascal |
Syntaxe
|
type NomForme = class(Form) public Déclarationspubliques end; |
Paramètres
| Nom | Description |
|---|---|
| Déclarationspubliques | Ce paramètre permet d'indiquer les définitions publiques |
| 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 partout.
Exemple
Voici des exemples de l'utilisation de cette instruction :
- Program PublicSamples;
-
- {$MODE OBJFPC}
- {$STATIC ON}
-
- Type
- MyObject = Class
- Public
- X:Boolean;Static;
- Procedure Init;
- End;
-
- MyObject2 = Class(MyObject)
- Public
- Y:Boolean;
- End;
-
- Procedure MyObject.Init;Begin
- X:=True;
- End;
-
- Var
- CurrObject:MyObject;
- OtherObject:MyObject2;
-
- BEGIN
- CurrObject.Create;
- CurrObject.Init;
- If(CurrObject.X)Then Begin
- WriteLn('Valeur de X est vrai');
- End
- Else
- Begin
- WriteLn('Valeur de X est fausse');
- End;
- END.
on obtiendra le résultat suivant :
Valeur de X est vrai
Dernière mise à jour : Dimanche, le 28 février 2016