Validere objekter ved deres constraints

Du har kanskje lagt merke til nå at som standard Fet vil tillate deg å spare objekter med ugyldige begrensninger. Her er en solution.Override MayUpdate i basen din klasse (BusinessClassesRoot i dette eksempelet), og inkluderer følgende kode .... funksjon TBusinessClassesRoot.MayUpdate: Boolean, Var jeg: Integer; Feil: TStringList; IE: TBoldIndirectElement; List: TBoldList, begynner IE: = TBoldIndirectElement.Create; Feil: = TStringList.Create; prøv å prøve EvaluateExpression ( 'constraints- > Velg (c | ikke c)', IE); List: = IE.Value som TBoldList; for jeg: = 0 til List.Count - en gjøre Errors.Add (Liste [0] .AsString); Resultat: = (Errors.Count = 0); hvis ikke Resultat deretter begynne BoldClearLastFailure; SetBoldLastFailureReason (TBoldFailureReason.Create (Errors.Text, Selv)); slutt; bortsett Resultat: = False; heve; slutt; endelig IE.Free; Errors.Free; end, end,. Hvis det blir gjort et forsøk på å redde et objekt med ødelagte begrensninger vil oppstå en feil



Previous:
Next Page: