Les propriétés dynamiques

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

upscmp Source=propdyn.upl Dictionnaire=Oui

Revenir en haut de la page...

propdyn

Revenir en haut de la page...

Source Composant "Exemple d'emploi des proprietes dynamiques" Version 1.0.0;

Type T Defaut ProprietesDynamiques
/********************************/
Public : Prive : Public : Fin Type

Variable
/******/ Principal
/*******/
Debut
VT.EcrirePropriete("A1", Objet(Vrai));
Ecran.Ecrire("VT.A1="+Caractere(Booleen(VT.LirePropriete("A1"))));
VT.EcrirePropriete("B1", Objet(Faux));
Ecran.Ecrire("VT.B1="+Caractere(Booleen(VT.LirePropriete("B1"))));
VT.EcrirePropriete("C1", Objet(1));
Ecran.Ecrire("VT.C1="+Caractere(Entier(VT.LirePropriete("C1"))));
VT.EcrirePropriete("D1", Objet(2));
Ecran.Ecrire("VT.D1="+Caractere(Entier(VT.LirePropriete("D1"))));
VT.EcrirePropriete("E1", Objet(10.1));
Ecran.Ecrire("VT.E1="+Caractere(Reel(VT.LirePropriete("E1"))));
VT.EcrirePropriete("F1", Objet(12.1));
Ecran.Ecrire("VT.F1="+Caractere(Reel(VT.LirePropriete("F1"))));
VT.EcrirePropriete("G1", "coucou");
Ecran.Ecrire("VT.G1="+Caractere(VT.LirePropriete("G1")));
VT.EcrirePropriete("H1", "hello");
Ecran.Ecrire("VT.H1="+Caractere(VT.LirePropriete("H1")));
Ecran.Ecrire("\n");

VT.SupprimerPropriete("A1");
Ecran.Ecrire("VT.A1="+Caractere(Booleen(VT.LirePropriete("A1"))));
VT.SupprimerPropriete("B1");
Ecran.Ecrire("VT.B1="+Caractere(Booleen(VT.LirePropriete("B1"))));
VT.SupprimerPropriete("C1");
Ecran.Ecrire("VT.C1="+Caractere(Entier(VT.LirePropriete("C1"))));
VT.SupprimerPropriete("D1");
Ecran.Ecrire("VT.D1="+Caractere(Entier(VT.LirePropriete("D1"))));
VT.SupprimerPropriete("E1");
Ecran.Ecrire("VT.E1="+Caractere(Reel(VT.LirePropriete("E1"))));
VT.SupprimerPropriete("F1");
Ecran.Ecrire("VT.F1="+Caractere(Reel(VT.LirePropriete("F1"))));
VT.SupprimerPropriete("G1");
Ecran.Ecrire("VT.G1="+Caractere(VT.LirePropriete("G1")));
VT.SupprimerPropriete("H1");
Ecran.Ecrire("VT.H1="+Caractere(VT.LirePropriete("H1")));
Ecran.Ecrire("\n");

Ecran.Ecrire("VT.A2="+Caractere(Booleen(VT.LirePropriete("A2"))));
Ecran.Ecrire("VT.B2="+Caractere(Booleen(VT.LirePropriete("B2"))));
Ecran.Ecrire("VT.C2="+Caractere(Entier(VT.LirePropriete("C2"))));
Ecran.Ecrire("VT.D2="+Caractere(Entier(VT.LirePropriete("D2"))));
Ecran.Ecrire("VT.E2="+Caractere(Reel(VT.LirePropriete("E2"))));
Ecran.Ecrire("VT.F2="+Caractere(Reel(VT.LirePropriete("F2"))));
Ecran.Ecrire("VT.G2="+Caractere(VT.LirePropriete("G2")));
Ecran.Ecrire("VT.H2="+Caractere(VT.LirePropriete("H2")));
Ecran.Ecrire("\n");

VT.EcrirePropriete("P1", "Propriete 1");
VT.EcrirePropriete("P2", "Propriete 2");
VT.EcrirePropriete("P3","Propriete 3");
Ecran.Ecrire("VT.P1="+Caractere(VT.LirePropriete("P1")));
Ecran.Ecrire("VT.P2="+Caractere(VT.LirePropriete("P2")));
Ecran.Ecrire("VT.P3="+Caractere(VT.LirePropriete("P3")));
Ecran.Ecrire("\n");

VT.SupprimerPropriete("P2");
Ecran.Ecrire("VT.P1="+Caractere(VT.LirePropriete("P1")));
Ecran.Ecrire("VT.P3="+Caractere(VT.LirePropriete("P3")));
Ecran.Ecrire("\n");

P=VT.EnumererProprietes(++Numero, TP, EstNul, ?, ?);
TantQue P!=Nul Faire Fin TantQue
Fin Principal

Revenir en haut de la page...