<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Tue, Aug 23, 2016 at 2:57 AM, Sven Barth <span dir="ltr"><<a href="mailto:pascaldragon@googlemail.com" target="_blank">pascaldragon@googlemail.com</a>></span> wrote:</div><div class="gmail_quote">[...]<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><p>See here: <a href="http://bugs.freepascal.org/view.php?id=30503" target="_blank">http://bugs.freepascal.org/vie<wbr>w.php?id=30503</a></p>
<p>Regards,<br>
Sven</p></blockquote></div><div>Thank you! :-)</div><div><br></div><div>I did:</div><div><br></div><div><div><span style="font-family:monospace,monospace">...</span></div><div><span style="font-family:monospace,monospace">{$IFDEF FPC}</span><br></div><div><font face="monospace, monospace">var</font></div><div><font face="monospace, monospace">  VPairs: TArray<TPair<TClass, string>>;</font></div><div><font face="monospace, monospace">{$ENDIF}</font></div><div><font face="monospace, monospace">begin</font></div><div><font face="monospace, monospace">...</font></div><div><font face="monospace, monospace">{$IFDEF FPC}</font></div><div><font face="monospace, monospace">  // issues #30503 and #30498</font></div><div><font face="monospace, monospace">  SetLength(VPairs, 2);</font></div><div><font face="monospace, monospace">  VPairs[0] := TPair<TClass, string>.Create(TMyObject, 'my qualifier');</font></div><div><font face="monospace, monospace">  VPairs[1] := TPair<TClass, string>.Create(<wbr>TMySerializable, TMySerializable.<wbr>QualifiedClassName);</font></div><div><font face="monospace, monospace">  TClassRegistry.Register(<wbr>VPairs);</font></div><div><font face="monospace, monospace">{$ELSE}</font></div><div><font face="monospace, monospace">  TClassRegistry.Register([<wbr>TPair<TClass, string>.Create(TMyObject, 'my qualifier'),</font></div><div><font face="monospace, monospace">    TPair<TClass, string>.Create(<wbr>TMySerializable, TMySerializable.<wbr>QualifiedClassName)]);</font></div><div><font face="monospace, monospace">{$ENDIF}</font></div></div><div><font face="monospace, monospace">...</font></div><div><br></div><div>and now my test-case compiles fine.</div><div><br></div>--<br><div data-smartmail="gmail_signature"><div dir="ltr"><div>Silvio Clécio</div></div></div>
</div></div>