home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / wbtrv.zip / RECORD.CLS < prev    next >
Text File  |  1990-11-02  |  711b  |  37 lines
  1. /* Copyright (c) 1990, Silverwood Software
  2.  * Placed in the public domain, 11/01/90
  3.  * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  4.  * Database record class enabling fields in array format */!!
  5.  
  6. inherit(Object, #Record, #(flds  /* array that holds fields */), 2, nil)!!
  7.  
  8. now(class(Record))!!
  9.  
  10. now(Record)!!
  11.  
  12. /* comment */
  13. Def getFlds(self,elem)
  14. { ^flds[elem];
  15. }
  16. !!
  17.  
  18. /* comment */
  19. Def initFlds(self,val)
  20. { flds:=new(Array,val);
  21.   do(val,
  22.     { using(e)
  23.       flds[e]:="";
  24.     });  
  25. }
  26. !!
  27.  
  28. /* comment */
  29. Def putFlds(self,elem,strg,len | s)
  30. { if size(strg)>len then
  31.     s:=delete(strg,len,size(strg));
  32.   else
  33.     s:=strg+fillWith(" ",len-size(strg));  
  34.   endif; 
  35.   flds[elem]:=s;
  36. }!!
  37.