TEqpt.CanBeUsed
| TEqpt = class (TObject) | Interface de TEqpt | Exemples de TEqpt |
Retourne la disponibilité d'un équipement.
Syntaxe
function CanBeUsed(): Boolean
Remarques
Un équipement est disponible pour utilisation si son état est "En utilisation", qu'il n'a pas d'opération périodique bloquante en retard et que tous ses sous-équipements sont disponibles.
Si l'équipement est en utilisation restreinte, il est considéré comme indisponible.
Exemples
var equipement := TEqpt.Connect('Thermomètre A400');
if equipement.CanBeUsed then
PrintLn('Equipement disponible')
else PrintLn('Equipement indisponible');
if equipement.CanBeUsed then
PrintLn('Equipement disponible')
else PrintLn('Equipement indisponible');