Validate an object (Views: 31)
Problem/Question/Abstract: How do you check if an object fits your condition and that of the compiler ? Answer: From time to time you want to be sure, if an object fits your conditions like naming conventions, robustness or you want the compiler find no further errors. The function checkOBJ determines whether a passed object, with a boolean returned from the function, represents an error condition. function TTrans.checkOBJ(aObject: TObject): boolean; var str: string; i: integer; begin result := false; if aObject = nil then exit; try str := ansiUppercase(aObject.classname); if str = '' then exit; for i := 1 to length(str) do if not (str[i] in ['0'..'9', 'A'..'Z', '_']) then exit; aObject.classType; if aObject.InstanceSize < 1 then exit; aObject.ClassnameIs('TObject'); result := aObject.ClassNameIs(aObject.Classname); except exit; end; end; You can call it then with an assert, so you get during the development a bit of quality assurance ;). accObj := TAccount.createAccount(FCustNo, std_account); assert(aTrans.checkOBJ(accObj), 'bad condition with OBJ'); //trans Use Assert as a debugging check to test that conditions assumed to be true are never violated. Assert provides an opportunity to intercept an unexpected condition and halt a program rather than allow execution to continue under unanticipated conditions. |