Tá díficil saber formatar arquivo texto!
É o seguinte pessoal, preciso ler um arquivo texto e formata-lo!
Mas para isso preciso saber formatar o texto!
Por Exemplo: Se o tamanho da maior linha for até a coluna 80, blz, só carrego o arquivo e imprimo; mas se for maior que 80 e menor que 120 tenho que formatar tudo como fonte 12, ou se for maior que 120 e menor que 140, formato com fonte 10 e assim por diante.
Da pra entender o que eu quero?
Sem mais...
Mas para isso preciso saber formatar o texto!
Por Exemplo: Se o tamanho da maior linha for até a coluna 80, blz, só carrego o arquivo e imprimo; mas se for maior que 80 e menor que 120 tenho que formatar tudo como fonte 12, ou se for maior que 120 e menor que 140, formato com fonte 10 e assim por diante.
Da pra entender o que eu quero?
Sem mais...
Wagnerg
Curtidas 0
Respostas
Motta
11/07/2003
Após a ReadLn vc pode ver o tamanho da linha
Readln(arq,s);
i:=Length(s);
if (s > 80 and s <= 120) then
font.size := ....
Readln(arq,s);
i:=Length(s);
if (s > 80 and s <= 120) then
font.size := ....
GOSTEI 0
S
11/07/2003
Pra vc conseguir formatar este texto , faça como o outro cara te enviou ...
texfor:=length(memo1.lines[1]);
if (texfor >=80) and (textfor<=120) then
font:=
texfor:=length(memo1.lines[1]);
if (texfor >=80) and (textfor<=120) then
font:=
GOSTEI 0