Überprüfen der Objekte durch ihre Einschränkungen
Sie vielleicht von aufgefallen, nun, da standardmäßig fett Speichern von Objekten mit ungültigen Einschränkungen ermöglicht wird. Hier ist eine Lösung.
Überschreiben Sie MayUpdate in der base-Klasse (in diesem Beispiel BusinessClassesRoot) und enthalten Sie den folgenden Code...
Funktion TBusinessClassesRoot.MayUpdate: Boolean;
var
I: Integer;
Fehler: TStringList;
IE: TBoldIndirectElement;
Liste: TBoldList;
beginnen
IE: = TBoldIndirectElement.Create;
Fehler: = TStringList.Create;
versuchen Sie
versuchen Sie
EvaluateExpression ('Einschränkungen -> Wähle (c|NET nicht C)', IE);
Liste: IE =. Wert als TBoldList;
für I: = 0 to List.Count - 1
Errors.Add (List [0]. AsString);
Ergebnis: = (Errors.Count = 0);
Wenn nicht dann führen
beginnen
BoldClearLastFailure;
SetBoldLastFailureReason (TBoldFailureReason.Create(Errors.Text, Self));
Ende;
mit Ausnahme von
Ergebnis: = False;
erhöhen;
Ende;
Schließlich
IE. Frei;
Errors.Free;
Ende;
Ende;
Ein Fehler wird auftreten, wenn versucht wird, ein Objekt mit gebrochenen Einschränkungen zu speichern.
Überprüfen der Objekte durch ihre Einschränkungen
Überprüfen der Objekte durch ihre Einschränkungen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Sie vielleicht von aufgefallen, nun, da standardmäßig fett Speichern von Objekten mit ungültigen Einschränkungen ermöglicht wird. Hier ist eine Lösung.
Überschreiben Sie MayUpdate in der base-Klasse (in diesem Beispiel BusinessClassesRoot) und enthalten Sie den folgenden Code...
Funktion TBusinessClassesRoot.MayUpdate: Boolean;
var
I: Integer;
Fehler: TStringList;
IE: TBoldIndirectElement;
Liste: TBoldList;
beginnen
IE: = TBoldIndirectElement.Create;
Fehler: = TStringList.Create;
versuchen Sie
versuchen Sie
EvaluateExpression ('Einschränkungen -> Wähle (c|NET nicht C)', IE);
Liste: IE =. Wert als TBoldList;
für I: = 0 to List.Count - 1
Errors.Add (List [0]. AsString);
Ergebnis: = (Errors.Count = 0);
Wenn nicht dann führen
beginnen
BoldClearLastFailure;
SetBoldLastFailureReason (TBoldFailureReason.Create(Errors.Text, Self));
Ende;
mit Ausnahme von
Ergebnis: = False;
erhöhen;
Ende;
Schließlich
IE. Frei;
Errors.Free;
Ende;
Ende;
Ein Fehler wird auftreten, wenn versucht wird, ein Objekt mit gebrochenen Einschränkungen zu speichern.
Überprüfen der Objekte durch ihre Einschränkungen
By Wiezutun
Überprüfen der Objekte durch ihre Einschränkungen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.