Validate an object (Views: 101)
How do you check if an object fits your condition and that of the compiler ?
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;
result := false;
if aObject = nil then
str := ansiUppercase(aObject.classname);
if str = '' then
for i := 1 to length(str) do
if not (str[i] in ['0'..'9', 'A'..'Z', '_']) then
if aObject.InstanceSize < 1 then
result := aObject.ClassNameIs(aObject.Classname);
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.
<< Back to main page