Comando Read/readln Não Funciona

[Guest Whazor]

Olha só,

Estou usando o codigo abaixo para ler um arquivo, só que o compilador emite a seguinte mensagem: ' Illegal type in Read/Readln statement'

type

Estrutura=record

campo: string[30];

campo1:string[40];

end;

var

arq: TextFile;

linha: Estrutura;

Begin

AssignFile(arq,'d:\teste.jrn');

Reset(arq);

readln(arq,linha);

end;

[Micheus]

você está tentando abrir um arquivo texto (arq: TextFile;), onde se lê linhas (string), mas deseja ler registros (record).

Se o conteúdo de seu arquivo é puramente texto, deverá ler os dados de forma diferente (como strings). Mas, se os dados foram realmente gravados no formato de registro, conforme a estrutura (record) definida para Estrututa, então você deverá declarar a variável de arquivo deste modo: arq: File of Estrutura;

[]s