On Mon, 23 Sep 2013 13:13:27 +0300 Zaher Dirkey <parm...@gmail.com> wrote:
> On Mon, Sep 23, 2013 at 12:57 PM, Mattias Gaertner < > nc-gaert...@netcologne.de> wrote: > > > type > > TMyClass = class(TPersistent) > > private > > type > > TMyClassVars = record > > a,b,c: string; > > end; > > private > > F: TMyClassVars; > > public > > procedure Assign(Source: TPersistent); > > property a: string read F.a write F.a; > > end; > > > > ​But in derived classes fields will not assigned​? Derived classes can use the same technique. Mattias _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
