<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote"><span class=""></span>On Mon, Sep 23, 2013 at 4:28 PM, Zaher Dirkey <span dir="ltr"><<a href="mailto:parmaja@gmail.com" target="_blank">parmaja@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div class="gmail_default" style="font-family:tahoma,sans-serif">The idea is simply than needs to use a stream or RTTI, it is like a record, if looked at an object like as a record but it is inheritable.<br>
</div><div class="gmail_default" style="font-family:tahoma,sans-serif">Compile can now every object body, and do the assigning as record assign.<br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">
</div>
<div class="gmail_default" style="font-family:tahoma,sans-serif">That's the feature I like to have. </div><br>Best Regards</blockquote></div><br><div class="gmail_default" style="font-family:tahoma,sans-serif">This is a funny example about what in my mind about what I talk (I know it is stupid and unsafe) <br>
</div><div class="gmail_default" style="font-family:tahoma,sans-serif">If you look it is only for the class that not yet inherited yet, and work only for the top class, but the compiler can <span class="GINGER_SOFATWARE_mark" id="fab736cd-0226-48d0-85e6-ea5754625f78">guss</span> all <span class="GINGER_SOFATWARE_mark" id="4cd7b402-7e3d-4095-9597-a90831dc3a91">inheited</span>/derived classes and make the same assign.<br>
</div><div class="gmail_default" style="font-family:tahoma,sans-serif">If some understand it, maybe give more explain.<br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">-----------------------------------------------------<br>
<span class="" id="6bfb3243-b013-4151-92db-eb487f9af73a">type</span><br> <span class="" id="53cd2764-1208-431c-a7a0-dd05f304a596">TmyRec</span> = record<br> <span class="" id="5707b118-a5f7-4f1d-8599-f17aab63a7ce">s</span>: string;<br>
<span class="" id="4be85be7-36b6-481f-a4a5-2a7771b7e099">i</span>: integer;<br> <span class="" id="4d8a618b-2434-4d15-bc35-28785d9f5ff8">end</span>;<br> PmyRec=^TmyRec;<br><br> <span class="" id="35e774a0-42d7-48a0-9999-672fcb3133c3">TmyObj</span> = class<span class="" id="fe2a1a20-3c51-4f85-8ca7-68d7a5c950b3">(</span>TObject)<br>
<span class="" id="43b35138-0079-4cfd-8785-cb796130be47">s</span>: string;<br> <span class="" id="76ebe4d3-5a8d-4474-9de7-15733f9de866">i</span>: integer;<br> <span class="" id="9e5a7015-d8ea-4851-8250-b80242f6b065">end</span>;<br>
<br><br><span class="" id="629107ce-3b69-44cd-ad5c-6a032f950126">procedure</span> TForm1.Button1Click<span class="" id="549f76ea-1e36-4cdd-b365-4d40ae05772b">(</span>Sender: TObject);<br><span class="" id="f87cdccb-62e9-4bdb-a236-11a1286ba860">var</span><br>
o1, o2: TmyObj;<br><span class="" id="ed5beb7a-f5ca-46d2-a00e-647ed7298a6d">begin</span><br> o1 <span class="" id="09633c7a-8e13-4515-b686-9dcc4dd3985b">:</span>= TmyObj<span class="" id="a79aa5c4-1a3d-4e5f-98e2-29fbfb7644a9">.</span>Create;<br>
o2 <span class="" id="21da0f96-2807-4ea4-9dea-091b128997e5">:</span>= TmyObj<span class="" id="787f85e4-0698-4645-8133-dbc60e6334af">.</span>Create;<br> o1<span class="" id="045f50e6-19a2-43c0-93bb-7d9a4513b36b">.</span>s <span class="" id="84fcb487-db7b-4d33-bc9a-93a546ea2ec4">:</span>= 'test1';<br>
o1<span class="" id="8f5c259b-dcdd-49e4-8510-e812d78ed0b3">.</span><span class="" id="729674e2-07c8-4227-89ca-f647e7903bb4">i</span> <span class="" id="d2a311eb-feb3-490d-9a08-a4f6e364e42d">:</span>= 122;<br> <span class="" id="3420b39d-607b-410c-a99e-2a18b15b6ca8">PmyRec</span><span class="" id="32b3ee4c-a12b-497c-902f-e73b5dd82e79">(</span>@o2<span class="" id="d904dbc2-71de-43ba-bd6e-4722abd1284f">)</span>^ <span class="" id="5a9868bb-e697-4afc-b45f-ca8fdc26b1ee">:</span>= PmyRec<span class="" id="8150b5d2-529d-4cf5-95f2-7e5397ea90d6">(</span>@o1<span class="" id="211c0dff-92c2-404b-869d-e9be6c449e0a">)</span>^;<br>
<span class="" id="e3cca8aa-6062-4e8d-85f6-b6879886df2d">WriteLn</span><span class="" id="76db12ec-fed6-43f7-bd07-ca34bc6657ed">(</span>o2<span class="" id="28ab4423-17ec-43ef-a1fe-839c6e5340a7">.</span>s);<br> <span class="" id="209d1c59-b94f-417c-b21b-07fda1737f93">WriteLn</span><span class="" id="e0076ee9-97fc-4309-ac9e-059f844636f0">(</span>o2<span class="" id="638bfc71-7c4e-4400-8005-9135d3f72398">.</span><span class="" id="ef7fb905-7178-4284-bb68-f13335617084">i</span>);<br>
<span class="" id="fd3a532f-4080-44b4-a3a4-041d9e694e86">end</span>; <br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">-----------------------------------------------------</div><br><div dir="ltr">
<span style="font-family:courier new,monospace">Best Regards<br>Zaher Dirkey</span></div>
</div><span class=""></span></div>