Overflow problem

[LemonParty]

Hello.

Here is the simplified code:

Code: Pascal  [Select][+][-]

1.   for i:= 0 to Length(S) div BufSize do begin
2.  
3.     k:= Pred(Min(BufSize, SizeUInt(Length(S) - i * BufSize)) div BitSizeOf(SizeUInt));
4.     for j:= 0 to Pred(Min(BufSize, SizeUInt(Length(S) - i * BufSize)) div BitSizeOf(SizeUInt)) do begin
5.       Mask:= PSizeUInt(@MaskBuf[j * SizeOf(SizeUInt)])^;
6.  
7.     end;
8.   end;

In this code I process a string by chunks and in some moment k becomes High(SizeUInt). The types of variables in this sample is SizeUInt. What I missing?

[jamie]

looks like you are using zero index.

The length of the loop should be one less /

for I := 0 To  Lenght(S)-1

[LemonParty]

Changed

Code: Pascal  [Select][+][-]

1. for i:= 0 to Length(S) div BufSize do begin

to

Code: Pascal  [Select][+][-]

1. for i:= 0 to Pred(Length(S)) div BufSize do begin

Seems working.
Thank you.