equal
deleted
inserted
replaced
534 end; |
534 end; |
535 |
535 |
536 if bRes then |
536 if bRes then |
537 begin |
537 begin |
538 anchored:= anchorcnt = 0; |
538 anchored:= anchorcnt = 0; |
539 for i:= 1 to anchorcnt do |
539 i:= 0; |
|
540 while i < anchorcnt do |
540 begin |
541 begin |
541 anchored := CheckLandAny(anchors[i], x, y, lfLandMask); |
542 anchored := CheckLandAny(anchors[i], x, y, lfLandMask); |
542 if anchored then break; |
543 if anchored then break; |
|
544 inc(i); |
543 end; |
545 end; |
544 bRes:= anchored; |
546 bRes:= anchored; |
545 end; |
547 end; |
546 |
548 |
547 if bRes then |
549 if bRes then |