Ir ao conteúdo
  • Cadastre-se

Recommended Posts

Oi pessoal, estou com problema na definição de array dinâmico. Veja esta parte do meu código:

UNIT Geral;

Interface

TYPE

TYPE1 = ARRAY OF ARRAY OF ARRAY OF DOUBLE;

VAR

imax,jmax : INTEGER;
xyn : TYPE1;

Implementation

____________________________________________________________________________________________

PROCEDURE READ(VAR imax,jmax:INTEGER;VAR xyn:TYPE1);

f1 : TEXTFILE;
i,j : INTEGER;

BEGIN

ASSIGNFILE(f1,''DATAS2.DAT'');
RESET(f1);

READ(f1,imax);
READ(f1,jmax);

FOR i := 1 TO imax DO

FOR j := 1 TO jmax DO

READLN(f1,xyn[i,j,1],xyn[i,j,2])

CLOSEFILE(f1);

_____________________________________________________________________________________

BEGIN

SETLENGTH(xyn,imax,jmax,2);

END.

Quando compilo está tudo ok. O problema é na execução, aonde aparece o erro 201 quando tento executar a procedure acima. Vi que o erro 201 é problema na verificação de faixa, mas não enxergo aonde está o erro. Por favor, me deem uma ajuda. Obrigado, Edisson Sávio.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×