leitura de caracteres

11/02/2003

1

Como faço para ler um caracter de cada vez em um arquivo.
Mais ou menos como a função fgetc em C.


Responder

Posts

11/02/2003

Nildo

Oque voce precisa fazer com isso ? Vai ver já tenho oque voce quer fazer


Responder

11/02/2003

Anonymous

o problema é o seguinte eu tenho que segmentar um arquivo de texto em pacotes de 1024 bytes. Assim, pretendo ler cada caractere até o 1024 e jogar para um outro vetor.


Responder

11/02/2003

Nildo

Depende...
O arquivo que voce vai ler pode contér #0 no meio ? (arquivos compilados)


Responder

11/02/2003

Navoid

cara o codigo abaixo funca:

*********
procedure learquivo;
var
arquivo: textfile;
caracter: array[1..1024] of char;
i: integer;
begin
assignfile(arquivo, ´arquivo_a_serlido´);
reset(arquivo);

try
while not eof(arquivo) do
begin
for i:= 1 to 1024 do
begin
read(arquivo, caracter[i]);
end;

// aqui voce processa os caracteres lidos
end;
finally
closefile(arquivo);
end;
end;
*********

espero ter ajudado


Responder

11/02/2003

Anonymous

não.


Responder

11/02/2003

Nildo

É isso ae navoide =P

nem precisei terminar o código dele :wink:


Responder