Oi pessoal, eu ainda estou com dúvidas sobre array dinâmico do Delphi. Eu fiz a seguinte implemantação:[code]SETLENGTH(xyn,(imax+1),(jmax+1),3)SETLENGTH(xyn[0],0);SETLENGTH(xyn[1],imax+1);SETLEN...

Eu também acho assim, mas não está funcionando. Veja, eu posso usar o seguinte trecho de comando:E ele dá pau. Você pode me dar uma ajuda? Obrigado, Edisson Sávio....

Array Dinâmico - Veja esse aqui...

24/05/2019

Algoritmo Delphi

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.

Edisson Maciel

Curtir tópico + 0

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

Gostei + 0

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

Gostei + 0