Description...
Exemple...
Voir aussi...
Traduction...
Prix : TMontant;
Principal
Variable
OC : Nul Ou IOffreCatalogue;
Debut
...
Ecran.Ecrire("Prix="+Caractere(OC.Prix.Montant)+Decoder(OC.Prix.Devise,
DeviseCouronneDanemark, "Couronne(s) danoise",
DeviseCouronneSuede, "Couronne(s) suédoise",
DeviseDollarEtatsUnis, "Dollar(s) américain",
DeviseEuro, "Euro(s)",
DeviseLivreAnglaise, "Livre(s) anglaise",
DeviseRouble, "Rouble(s)",
DeviseShekel, "Shekel(s)",
DeviseYuan, "Yuan(s)",
DeviseYen, "Yen(s)",
DeviseWon, "Won(s)"));
...
Fin Principal
Preis | Price | 价格 | Precio | - | - | - | - |