Exite como saber o tamanho da linha de um arquivo texto?

Question

Preciso de uma rotina que leia (percorra) meu arquivo texto e me retorne o tamanho da maior linha.Existe esta possibilidade?Sem mais......

Lucilton · Answer

AssignFile ( arq, nomeDoArquivo );
Reset ( arq );

tamanhomaior=0;

while not Eof ( arq ) do
begin
ReadLn ( arq, linha );

if tamanhomaior<lenght(linha) then
tamanho=length(linha);

end;

CloseFile ( arq );

F�rum Exite como saber o tamanho da linha de um arquivo texto? #168890