Fórum Tá díficil saber formatar arquivo texto! #168941
11/07/2003
0
É 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
Curtir tópico
+ 0
Responder
Posts
11/07/2003
Motta
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 := ....
Responder
Gostei + 0
11/07/2003
S
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:=
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)