<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote"><span class="GingerNoCheckStart"></span>On Mon, Sep 23, 2013 at 10:02 AM, Michael Van Canneyt <span dir="ltr"><<a href="mailto:michael@freepascal.org" target="_blank">michael@freepascal.org</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div id=":1i2" style="overflow:hidden"><span class="GINGER_SOFATWARE_mark" id="4155856d-39c5-4fcd-8519-9ad654f8dfb6">Var</span><br>
C : TBaseObjectClass;<br>
<span class="GINGER_SOFATWARE_mark" id="3f299159-ff14-4c06-a87d-23b137350072">begin</span><br>
C<span class="GINGER_SOFATWARE_mark" id="55e5ada2-8f94-452e-b5c6-5226c67bf4bd">:</span>=TBaseObjectClass<span class="GINGER_SOFATWARE_mark" id="80df90e4-cf20-46e3-819d-3cdc1003874e">(</span>ClassType)<u></u>;<br>
Result<span class="GINGER_SOFATWARE_mark" id="6a43e32d-fa48-4528-b604-f7e7c14c128e">:</span>=C<span class="GINGER_SOFATWARE_mark" id="0819f296-32ca-47a7-a531-4b69d9da9cd9">.</span>Create;<br>
<span class="GINGER_SOFATWARE_mark" id="af17c4f8-c213-4da3-8d58-84dacc2685ca">end</span>;</div></blockquote></div><br><div class="gmail_default" style="font-family:tahoma,sans-serif">Yes, that help me, thanks.<br><br></div>
<div class="gmail_default" style="font-family:tahoma,sans-serif">Now about assigning I must repeat it (assign) for every child class copy its field members, is there any trick to copy the values like assigning record <span class="GINGER_SOFATWARE_mark" id="68533171-9799-493c-8171-0427c1604e7b">var</span> to another record <span class="GINGER_SOFATWARE_mark" id="064f31cd-b8e8-4ada-8c8b-c7fb05ac65ac">var</span>?<br>
</div><div class="gmail_default" style="font-family:tahoma,sans-serif">I know it is kind of strange way :P<br></div><br clear="all"><div class="gmail_default" style="font-family:tahoma,sans-serif">Thanks<br><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">
Zaher Dirkey</div><br></div><span class="GingerNoCheckEnd"></span></div>