TypeComposite : ChampType Virtuel Lecture Public;
Principal
/*******/
Variable
/******/
VC : Nul Ou ValeurComposite;
Debut
...
Selon VC.ChampType Faire
Cas ChampTypeBinaire Faire
Ecran.Ecrire(Binaire(VC.ValeurParDefaut));
Fin Cas
Cas ChampTypeCaractere Faire
Ecran.Ecrire(Caractere(VC.ValeurParDefaut));
Fin Cas
Cas ChampTypeDate Faire
Ecran.Ecrire(Date(VC.ValeurParDefaut));
Fin Cas
Cas ChampTypeEntier Faire
Ecran.Ecrire(Entier(VC.ValeurParDefaut));
Fin Cas
Cas ChampTypeEnumere Faire
Ecran.Ecrire(Enumere(VC.ValeurParDefaut));
Fin Cas
Cas ChampTypeReel Faire
Ecran.Ecrire(Reel(VC.ValeurParDefaut));
Fin Cas
Fin Selon
...
Fin Principal
- | - | - | - | - | - | - | - | - |