hehe ti na towa ako wikash prosto.... i ne widqh kak w e din unit sha naprawish definiciq na dwa obekta ot edin shablon... a ako w edin unit iskash da imash clas kojto sadarja pole ot tip proizweden ot shablona i drug obekt kojto sadarja pole s tip proizweden ot shablona tipiziran kam parwiq klas? Po nachina predlagan w statiqta trqbwa da imame 2-3 unita za da mojem da si naprawim deklaraciite.. eto ti edna malko primerche (zaradi koeto beshe napisana i programat):
ot XMEM.t sa napraweni dwe proizwodstwa s TObjFieldDescr i TDObject

Type

    TObjFieldDescr=class

    .......

    end;

{$I flds_interface.inc}

    TDObject=class

    public

        fdef:TXMemflds;

    ......

    end;

{$I objs_interface.inc}

    Tcore = class(TDataModule)

    public

        odefs:TXMemObjs;

    ......

    end;

.....

Implementation



{$I flds_implement.inc}

{$I objs_implement.inc}

.....