<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">2016-08-17 16:05 GMT+02:00 silvioprog <span dir="ltr"><<a href="mailto:silvioprog@gmail.com" target="_blank">silvioprog@gmail.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">I need to find the values using case-insensitive keys (I'm using it in a class registry of my app), so unfortunately this bug doesn't let me to use TDictionary on FPC yet. :-(</blockquote></div><br>There is simple workaround:</div><div class="gmail_extra"><br></div><div class="gmail_extra">=== begin code ===</div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra">function EqualityComparison(constref ALeft, ARight: string): Boolean;</div><div class="gmail_extra">begin</div><div class="gmail_extra">  Result := LowerCase(ALeft) = LowerCase(ARight);</div><div class="gmail_extra">end;</div><div class="gmail_extra"><br></div><div class="gmail_extra">procedure ExtendedHasher(constref AValue: string; AHashList: PUInt32);</div><div class="gmail_extra">begin</div><div class="gmail_extra">  TDefaultHashFactory.GetHashList(Pointer(AValue), Length(AValue) * SizeOf(Char), AHashList);<br></div><div class="gmail_extra">end; </div></div><div class="gmail_extra"><br></div><div class="gmail_extra">var</div><div class="gmail_extra">  list: TDictionary<string, string>;</div><div class="gmail_extra">begin</div><div class="gmail_extra">  list := TDictionary<string, string>.Create(TEqualityComparer<string>.Construct(EqualityComparison, ExtendedHasher));</div><div class="gmail_extra"><br></div><div class="gmail_extra">=== end code ===<br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div>Best regards,<br>Maciej Izak</div></div></div>
</div></div>