leitura de arq txt ....
olah... eu tenho 2 problemas...
1 - como eu faço para ler palavra por palavra de um arquivo txt ??
2 - e tb como eu faço pra saber q mudou de linha??
obrigado....
1 - como eu faço para ler palavra por palavra de um arquivo txt ??
2 - e tb como eu faço pra saber q mudou de linha??
obrigado....
Tipavan
Curtidas 0
Respostas
Carlosk
22/10/2003
para ler o arquivo:
procedure learq;
var
arquivo: textfile;
linha: string;
begin
assignfile(arquivo,´seuarq.txt´);
while not eof(arquivo) do begin
readln(arquivo,linha);
// agora vc teria que tratar a linha procurando por espacos
// para pegar palavra por palavra. usa a funçao pos(´ ´,linha) para
// localizar os espaços.
end;
end;
Espero ter ajudado.
Carlos Klein
procedure learq;
var
arquivo: textfile;
linha: string;
begin
assignfile(arquivo,´seuarq.txt´);
while not eof(arquivo) do begin
readln(arquivo,linha);
// agora vc teria que tratar a linha procurando por espacos
// para pegar palavra por palavra. usa a funçao pos(´ ´,linha) para
// localizar os espaços.
end;
end;
Espero ter ajudado.
Carlos Klein
GOSTEI 0