leitura de caracteres
Como faço para ler um caracter de cada vez em um arquivo.
Mais ou menos como a função fgetc em C.
Mais ou menos como a função fgetc em C.
Anonymous
Curtidas 0
Respostas
Nildo
11/02/2003
Oque voce precisa fazer com isso ? Vai ver já tenho oque voce quer fazer
GOSTEI 0
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
11/02/2003
Depende...
O arquivo que voce vai ler pode contér #0 no meio ? (arquivos compilados)
O arquivo que voce vai ler pode contér #0 no meio ? (arquivos compilados)
GOSTEI 0
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
*********
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
11/02/2003
não.
GOSTEI 0
Nildo
11/02/2003
É isso ae navoide =P
nem precisei terminar o código dele :wink:
nem precisei terminar o código dele :wink:
GOSTEI 0