<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">2016-08-17 17:20 GMT+02:00 Maciej Izak <span dir="ltr"><<a href="mailto:hnb.code@gmail.com" target="_blank">hnb.code@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"><div class="gmail_extra">procedure ExtendedHasher(constref AValue: string; AHashList: PUInt32);</div><div class="gmail_extra">begin</div><div class="gmail_extra">  TDefaultHashFactory.<wbr>GetHashList(Pointer(AValue), Length(AValue) * SizeOf(Char), AHashList);<br></div><div class="gmail_extra">end; </div></blockquote></div><div class="gmail_extra"><br></div>there is bug, correct version:</div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra">procedure ExtendedHasher(constref AValue: string; AHashList: PUInt32);</div><div class="gmail_extra">var</div><div class="gmail_extra">  temp: string;</div><div class="gmail_extra">begin</div><div class="gmail_extra">  temp := LowerCase(AValue);</div><div class="gmail_extra">  TDefaultHashFactory.GetHashList(Pointer(temp), Length(temp) * SizeOf(Char), AHashList);</div><div class="gmail_extra">end; </div><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>