Array Dinâmico - Veja esse aqui...

24/05/2019

12

Oi pessoal, eu ainda estou com dúvidas sobre array dinâmico do Delphi. Eu fiz a seguinte implemantação:

SETLENGTH(xyn,(imax+1),(jmax+1),3)
SETLENGTH(xyn[0],0);
SETLENGTH(xyn[1],imax+1);
SETLENGTH(xyn[2],jmax+1);
SETLENGTH(xyn[3],3), aonde imax e jmax são índices lidos.


Tentando ver se com isso eu inutilizo a posição 0 e uso só as posições 1, 2 e 3. Eu consigo compilar o código, mas ele dá pau na execução. Vocês podem me orientar neste caso? Qual a sugestão de vocês para este array? Fico no aguardo, obrigado,

Edisson Sávio.
Responder

Posts

24/05/2019

Artur Barth

Por que afinal você quer "inutilizar" a posição 0? Não é mais fácil simplesmente não lançar valor para a posição 0 e pronto?
Responder

24/05/2019

Edisson Maciel

Por que afinal você quer "inutilizar" a posição 0? Não é mais fácil simplesmente não lançar valor para a posição 0 e pronto?

Eu também acho assim, mas não está funcionando. Veja, eu posso usar o seguinte trecho de comando:

SETLENGTH(xyn,(imax+1),(jmax+1),3);
SETLENGTH(xyn[1],imax+1);
SETLENGTH(xyn[2],jmax+1);
SETLENGTH(xyn[3],3);


FOR i := 1 TO imax DO
        FOR j := 1 TO jmax DO
                READLN(xyn[i,j,1],xyn[i,j,2]);


E ele dá pau. Você pode me dar uma ajuda? Obrigado, Edisson Sávio.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira