TEquipmentType.Post
| TEquipmentType = class (TObject) | Interface de TEquipmentType | Exemples de TEquipmentType |
Qubes 10.0 Sauvegarde en base du type d'équipement avec ses modifications
Syntaxe
procedure Post()
Remarques
Peut provoquer des exceptions en cas de contraintes en écritures non respectées.
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.Description := "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;
// 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.Description := "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;