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;
  str: string;
  i: integer;
  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