1 reply to this topic

[zanguyron]

boa noite ,
Esta dando erro na ultima linha (esse ésó um pedaço do prog)

program cadastro;
type
crt;
type
cadas = record
codi: integer;
prod: string[20];
unid: integer;
quan: integer;
mini: integer;
maxi: integer;
comp: real;
vend: real;
flag: char;
end;
arqui = file of cadas;

grato desde já

[Simon Viegas]

boa noite ,
Esta dando erro na ultima linha (esse ésó um pedaço do prog)

program cadastro;
type
crt;
type
cadas = record
codi: integer;
prod: string[20];
unid: integer;
quan: integer;
mini: integer;
maxi: integer;
comp: real;
vend: real;
flag: char;
end;
arqui = file of cadas;

grato desde já

Olá zanguyron

Dei uma olhada no seu código...

O que eu encontrei de errado e corrigi está entre {}. Não tenho compilador aqui, mas do resto acho que está certo.

program cadastro;
{type}
uses
  crt;
type
  cadas = record
			codi: integer;
			prod: string[20];
			unid: integer;
			quan: integer;
			mini: integer;
			maxi: integer;
			comp: real;
			vend: real;
			flag: char;
		  end;

arqui = file of cadas;

Qualquer coisa é só postar.

Abraços