2016-08-17 17:20 GMT+02:00 Maciej Izak <hnb.c...@gmail.com>: > procedure ExtendedHasher(constref AValue: string; AHashList: PUInt32); > begin > TDefaultHashFactory.GetHashList(Pointer(AValue), Length(AValue) * > SizeOf(Char), AHashList); > end; >
there is bug, correct version: procedure ExtendedHasher(constref AValue: string; AHashList: PUInt32); var temp: string; begin temp := LowerCase(AValue); TDefaultHashFactory.GetHashList(Pointer(temp), Length(temp) * SizeOf(Char), AHashList); end; -- Best regards, Maciej Izak
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
