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