2013/3/24 Leonardo M. Ramé <l.r...@griensu.com>: > Hi, I'm copying a buffer of PWord to a TMemoryStream using this code: > > lTmpBuff := lBuffer; > I := 0; > while I < lBufSize do > begin > lStream.Write(lTmpBuff^, SizeOf(PWord)); > inc(lTmpBuff, 1); > inc(I, 1);
What about: inc(lTmpBuff, SizeOf(PWord)); inc(I, SizeOf(PWord)); Joao Morais -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus