Commande de compilation...
Commande d'exécution...
Fichier source...
upscmp Source=reference.upl
reference
Source Composant "Exemple d'emploi du type Reference" Version
1.0.0;
Principal
Variable
A : Caractere;
R1 : Nul Ou ReferenceDe Caractere;
R2 : Nul Ou ReferenceDe Caractere;
Debut
A="A";
R1=ReferenceDe(A);
R2=ReferenceDe("B");
Ecran.Ecrire(R1.Valeur);
Si R1==R2 Alors
Ecran.Ecrire("R1==R2");
Fin Si
Si R1!=R2 Alors
Ecran.Ecrire("R1!=R2");
Fin Si
R2=R1;
Si R1.Valeur==R2.Valeur Alors
Ecran.Ecrire("R1.Valeur==R2.Valeur");
Fin Si
R1.Valeur="C";
Ecran.Ecrire(R2.Valeur);
Fin Principal