On Mon, 23 Sep 2013 13:13:27 +0300 Zaher Dirkey <[email protected]> wrote:
> On Mon, Sep 23, 2013 at 12:57 PM, Mattias Gaertner < > [email protected]> 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 - [email protected] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
