Ajuda com Array

[Luiz Fernando]

Colegas ve se alguém pode me ajudar no código abaixo...

for i=1 to len(aPlano7)
    if aPlano7[i,9]<>0
       if aPlano7[i,7]<>aPlano7[i,9]
          if aPlano7[i,1]='010000014'
             ? 'não passa por aqui'  
          endif
          DelMatriz(aPlano7,i)  // agora se eu ignorar esta linha ira passar no registro acima normal
       endif
    endif
next

a função delmatriz acho que peguei aqui no fórum mesmo

function DelMatriz(Vetor,Item)  
  Adel(Vetor,Item)  
  aSize(Vetor,Len(Vetor)-1)
return(.t.)

Obrigado

Luiz Fernando

[AnaCatacombs]

Bom dia Luiz.
Eu não costumo alterar o tamanho da array que estou rodando uma estrutura de repetição. Faça o teste, coloque array temporária para receber os valores, depois substitua ela logo após o FOR.

Outra coisa interessante: Se você usa xHarbour, a função DelMatriz pode ser substituída pelo código abaixo:

aDel(Vetor,Item,.T.)
 

O terceiro parametro serve para diminuir o tamanho da array, e faz exatamente o que o ASIZE faz logo após o aDel.

[]'s

Ana

[Yury]

Olá, bom dia

você tem que diminuir 1 do contador do FOR quando redimensiona o array para um tamanho menor

e pode utilizar o Adel conforme a Ana falou, não precisa fazer aSize

for i=1 to len(aPlano7)
if aPlano7[i,9]<>0
if aPlano7[i,7]<>aPlano7[i,9]
if aPlano7[i,1]='010000014'
endif
DelMatriz(aPlano7,i)
i:=i-1 // aqui diminui um do contador
endif
endif
next

Abraço

[Erciley Junior]

Bom, só coletando as respostas do Yury e da Ana, você pode alterar seu código sem nem pensar por:

for i=1 to len(aPlano7)
    if aPlano7[i,9]<>0
       if aPlano7[i,7]<>aPlano7[i,9]
          if aPlano7[i,1]='010000014'
             ? 'não passa por aqui'  
          endif
          
          ADEL(aPlano7,i,.T.)
          i--
 
       endif
    endif
next

[Luiz Fernando]

Vlw pessoal obrigado pelas dicas, deu certinho...

Abraços

Luiz Fernando