Category : Files from Magazines
Archive   : DDJJUL92.ZIP
Filename : STRUCPRG.ASC

_STRUCTURED PROGRAMMING COLUMN_
by Jeff Duntemann

[Example 1: The stream registration record definition]


TStreamRec = RECORD
ObjType : Word; { You define a unique code for this field }
VMTLink : Word; { The offset of the type's VMT in the dataseg }
Load : Pointer; { The full address of the type's Load method }
Store : Pointer { The full address of the type's Store method }
END;






[Example 2: The registration record for TMortgage]

CONST
RMortgage : TStreamRec =
(ObjType : 1200;
VMTLink : Ofs(TypeOf(TMortgage)^);
Load : @TMortgage.Load;
Store : @TMortgage.Store);