{ Objektumok TP-ben, valamire biztos jo - pl. ZH-ra ;-( } type tritka=object db:integer; sordb,oszlopdb:integer; rmatrix:array[..] of t... public { Nem kell a tobbi "alresz", mert az objektumon belul vagyunk } procedure init(elem:tmatrixelem); procedure beelem(elem:tritkaelem); procedure(bematrix...); ... { ide jon a tobbi fejlec } private function index(i,j:integer); end; var r:tritka {r.dbb} {A hasznalata:} {r.init(0)} { pl.: az r-obj. init eljarasa }