Hi,
procedure BytesToHexStr(var hHexStr: String; pbyteArray: PByte;
InputLength: WORD); Const HexChars : Array[0..15] of Char = '0123456789ABCDEF'; var i, j: WORD; begin SetLength(hHexStr, (InputLength * 2)); FillChar(hHexStr, sizeof(hHexStr), #0); // wrong!
Use
FillChar(hHexStr[1],length(hHexStr),#0);
instead or replace the three lines by just
hHexStr := StringOfChar(#0,InputLength*2);
Good luck Gunnar
_______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
