Delphi 2.0 e Código...

02/05/2018

2

Oi Pessoa, segue o trecho do código que dá o problema de "Violação de Acesso". Espero que possam me ajudar. O programa contém esta chamada para a procedure Field_Temperatures:


{ Temperature in the field }

Field_Temperatures_5_Species_TECNE(imax,jmax,a_char,Tref,Computational,Physical_properties,General,Properties,Air,Q,Temperatures);


E no código da procedure, disponível em uma UNIT, estão as seguintes instruções:

BEGIN

{ Main part of this procedure }

ASSIGNFILE(f1,'TEMPERATURAS.DAT');
REWRITE(f1);

{ Defining pointer }

NEW(Primitive);
NEW(Mi_Mag);
NEW(Cv_mixt);
NEW(dhf_mixt);

{ Volume temperatures }

FOR i := 1 TO (imax-1) DO

FOR j := 1 TO (jmax-1) DO

BEGIN

{ Volume temperatures at the first iteration determined by the initial condition }

IF (Computational.Iter = 0) THEN

{ Nondimensionalized initial temperature of each volume }

Temperatures[i,j,1] := Physical_properties.Temperature/a_char+Tref

ELSE

Pronto, na primeira iteração era para executar a condição acima para a matriz Temperatures, mas dá o erro de acesso.
Aguardo seus comentários para ver se podem me ajudar. Obrigado, Edisson Sávio.
Edisson Maciel

Edisson Maciel

Responder

Posts

02/05/2018

Natanael Ferreira

Debugue sua Procedure Field_Temperatures para saber em que linha exatamente o erro ocorre.

Assim fica mais fácil descobrir qual o objeto não existe na memória.
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar