TEquipmentType - Exemples

uses Eqpt;

// Récupération du type d'équipement ayant le nom "R-Thermostat"
var eqptType := TEquipmentType.ConnectByName("R-Thermostat");

// Modification du nom par un nom unique
eqptType.Name := "R-Thermostat modifié";

// Modification de la description
eqptType.Name := "Description modifiée pour l''exemple";

// Modification de la nature par un ID de nature d'équipement valide
eqptType.NatureID := 2;

try
   eqptType.Post;
except
   // Retourne le message d'erreur avec ce qui l'a provoqué
   on e : Exception do begin
      PrintLn(e);
   end;
end;