SRL Archive - OSR Help

Solved.

You need to set the length of T2D, I think.

Would you mind showing the whole script? Could be a problem with the array NoFindBoxes aswell.

From: Naum
You need to set the length of T2D, I think.

Would you mind showing the whole script? Could be a problem with the array NoFindBoxes aswell.

I edited with the whole script ;)
And btw it just worked once but 95% of the time it gets the error :D

Might be because you mess with the Length of T2D in the middle of a loop (shortening it) and then when it goes to the next step in the loop its out of range because the high is smaller. " SetArrayLength(T2D, L2-1);" <-> "for II := 0 to High(T2D) do"

From: IceFire908
Might be because you mess with the Length of T2D in the middle of a loop (shortening it) and then when it goes to the next step in the loop its out of range because the high is smaller. " SetArrayLength(T2D, L2-1);" <-> "for II := 0 to High(T2D) do"

But as you can see I have that WriteLn('a'); in that function and it only prints it once so it can't have gone that far in the script :(

Edit: You can only see in the whole script :P

From: antti mies
But as you can see I have that WriteLn('a'); in that function and it only prints it once so it can't have gone that far in the script :(

Edit: You can only see in the whole script :P

That's in a different spot

    for II := 0 to High(T2D[I]) do    
for III := 0 to High(NoFindBoxes) do    
if PointInBox(T2D[I][II], NoFindBoxes[III]) then    
begin      
  L := High(T2D[I]);      
  Swap(T2D[I][II], T2D[I][L]);     
  L2 := Length(T2D[I])      
  SetArrayLength(T2D[I], L2-1);    
end;

Ok i think ill do some more debugging but now i have to go school :)

Thanks icefire.
All I had to do was to add a break;

for II := 0 to High(T2D[I]) do   
for III := 0 to High(NoFindBoxes) do   
if PointInBox(T2D[I][II], NoFindBoxes[III]) then   
begin     
  L := High(T2D[I]);     
  Swap(T2D[I][II], T2D[I][L]);     
  L2 := Length(T2D[I])     
  SetArrayLength(T2D[I], L2-1);
  Break; // <---- HERE   
end;