Objet

Ce programme présente l'usage du type générique Objet.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/objet.upl.

Mode compilé

Commande de compilation


upscmp Source=objet.upl

Commande d'exécution


objet

Mode interprété


upssng Source=objet.upl

Fichier source


Source Composant "Exemple d'emploi du type Objet" Version 4.0.0;



Variable

/******/

   E1 : Nul Ou Entier;

   E2 : Nul Ou Entier;

   C : Caractere;

   O : Nul Ou Objet;



Principal

/******/

Debut

E1=1;

E2=2;

Si E1.Identique(E2) Alors

   Ecran.Ecrire("E1 Identique a E2");

Sinon

   Ecran.Ecrire("E1 Non Identique a E2");

Fin Si

O.Convertir(E1);

Si E1.Identique(O) Alors

   Ecran.Ecrire("E1 Identique a O");

Sinon

   Ecran.Ecrire("E1 Non Identique a O");

Fin Si

E2.Convertir(O);

Si E2.Identique(O) Alors

   Ecran.Ecrire("E2 Identique a O");

Sinon

   Ecran.Ecrire("E2 Non Identique a O");

Fin Si

Ecran.Ecrire(E2);

C.Convertir(O);

Fin Principal

Résultat de l'exécution

E1 Non Identique a E2 E1 Identique a O E2 Identique a O 1 Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le source 'source inconnu' ligne 0, colonne 0 : Erreur UpsKrn-202 : Il est impossible d'appliquer la méthode 'Convertir' du type 'Objet'.