leitura de caracteres

Delphi

11/02/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Nildo

Nildo

11/02/2003

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


GOSTEI 0
Anonymous

Anonymous

11/02/2003

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.


GOSTEI 0
Nildo

Nildo

11/02/2003

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


GOSTEI 0
Navoid

Navoid

11/02/2003

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


GOSTEI 0
Anonymous

Anonymous

11/02/2003

não.


GOSTEI 0
Nildo

Nildo

11/02/2003

É isso ae navoide =P

nem precisei terminar o código dele :wink:


GOSTEI 0
POSTAR