Type

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=type.upl

Revenir en haut de la page...

type

Revenir en haut de la page...

Source Composant "Exemple d'emploi du type Type" Version 1.0.0;

Variable Principal
Debut
T=Type.EnumererObjets(Nul);
TantQue T!=Nul Faire Fin TantQue
Ecran.Ecrire("\n");

Ecran.Ecrire(Binaire.NomType);
Ecran.Ecrire(Caractere.NomType);
Ecran.Ecrire(Date.NomType);
Ecran.Ecrire(Entier.NomType);
Ecran.Ecrire(Enumere.NomType);
Ecran.Ecrire(Exception.NomType);
Ecran.Ecrire(Fichier.NomType);
Ecran.Ecrire(Module.NomType);
Ecran.Ecrire(Objet.NomType);
Ecran.Ecrire(Reel.NomType);
Ecran.Ecrire(Type.NomType);
E=1;
E++;

Si E==2 Alors Sinon Fin Si
Si T==Date Alors Fin Si
Si T!=Date Alors Fin Si
Ecran.Ecrire(T.NomType);
E.Convertir(Entier.NouvelObjet());
Ecran.Ecrire(E);
E.Convertir(Exception.NouvelObjet());
Ecran.Ecrire(E);
Fin Principal

Revenir en haut de la page...