Exemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet de connaître l'espace disque disponible sur un disque. Le chemin du disque est saisi par l'utilisateur dans un champ de saisie (CheminDisque). Pour cet exemple, nous considérons que l'utilisateur saisit le chemin complet du disque (par exemple A:).
|
||
--Code de clic sur BtnEspaceLibre
// Déclaration de la variable ResEspaceLibre est un réel // Espace libre disponible ? ResEspaceLibre = fDisqueInfo (CheminDisque, fdEspaceLibre ) // Erreur ? SI ResEspaceLibre <> 0 ALORS Info(ResEspaceLibre + "octets disponibles sur ce disque") SINON // Affichage du message d'erreur Erreur(ErreurInfo( errMESSAGE )) FIN
|