<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">2016-12-12 14:27 GMT+01:00 Sven Barth <span dir="ltr"><<a href="mailto:pascaldragon@googlemail.com" target="_blank">pascaldragon@googlemail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><p>I'm still thinking about a solution that will satisfy both of our points as good as possible - yes, I already have an idea. Maybe I'll share it this evening when I'm home again.</p></blockquote><div><div><br></div><div>Do you mean :</div><div><br></div><div>=== code begin ===</div><div> TRecordTypeField = packed record // without "Field: TManagedField"</div><div> Flags: Byte; // visibility</div><div> Name: ShortString;</div><div> end;</div><div><br></div><div>...</div><div> { tkRecord }</div><div> property ManagedFldCount: Integer read GetManagedFldCount; deprecated 'Use TotalFieldCount'; // return TotalFieldCount</div><div>...</div><div> tkRecord: (</div><div> RecSize: Integer;</div><div> ManagedFieldCount: Integer;</div><div> TotalFieldCount: Integer;</div><div> {TotalFields: array[0..TotalFieldCount - 1] of TManagedField;</div><div> ManagedFields: array[0..ManagedFieldCount - 1] of TManagedField; // or indirect pointer to init table ? </div><div> RecFields: array[0..TotalFieldCount - 1] of TRecordTypeField});</div><div>=== code end ===</div><div><br></div><div>Full backward compatible... Fair enough and a little Delphi incompatible (it is already incompatible so no big difference and no redundant info for TRecordTypeField)</div></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><p>Then don't pick such controversial topics :P</p></blockquote></div>You never know what is controversial :P. Core team is unpredictable. ;)<br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div>Best regards,<br>Maciej Izak</div></div></div>
</div></div>