La validation des objets par leurs contraintes

La validation des objets par leurs contraintes

La validation des objets par leurs contraintes : Plusieurs milliers de conseils pour vous faciliter la vie.

Vous pouvez avoir remarque que, par defaut en Gras vous permettra de sauvegarder les objets non contraintes. Voici une solution.
Remplacer MayUpdate dans votre classe de base (BusinessClassesRoot dans cet exemple) et inclure le code suivant....
fonction de TBusinessClassesRoot.MayUpdate: Boolean
var
& nbsp & nbsp I: Integer
& nbsp & nbsp Erreurs: TStringList
& nbsp & nbsp IE: TBoldIndirectElement
& nbsp & nbsp Liste: TBoldList
begin
& nbsp & nbsp IE := TBoldIndirectElement.Creer
& nbsp & nbsp Erreurs := TStringList.Creer
& nbsp & nbsp essayer
& ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & nbsp EvaluateExpression (contraintes->select(c| c)', IE)
& ! & ! & ! & ! & ! & nbsp Liste := IE.Valeur TBoldList
& ! & ! & ! & ! & ! & nbsp for I := 0 dans la Liste.Count - 1 do
& ! & ! & ! & ! & ! & ! & ! & nbsp Erreurs.Ajouter(Liste[0].AsString)

& ! & ! & ! & ! & ! & nbsp Result := (Erreurs.Count = 0)
& ! & ! & ! & ! & ! & nbsp si pas de Resultat, alors
& ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & nbsp BoldClearLastFailure
& ! & ! & ! & ! & ! & ! & ! & nbsp SetBoldLastFailureReason(TBoldFailureReason.Creer(Des Erreurs.Texte, Auto -))
& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp a l'exception de
& ! & ! & ! & ! & ! & nbsp Resultat := False
& ! & ! & ! & ! & ! & nbsp soulever
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp IE.Gratuit
& ! & ! & ! & nbsp Erreurs.Gratuit
& nbsp & nbsp fin
fin
Si une tentative est faite pour enregistrer un objet brise contraintes une erreur se produit.