Fórum Como negritar parte arq. texto gerado via programação #174832
13/08/2003
0
Olá
Meu nome é Marcos
Através de um programa que fiz, gero um relatório em formato txt, mas gostaria de negritar algumas partes no arquivo, tem alguma função.
Como exemplo, vejam:
if savedialog1.Execute then
begin
assignfile(comarca,savedialog1.filename);
Rewrite(comarca);
end;
query1.close;
with Query1 do begin
if active then close;
Parambyname(´Comarca´).asstring:=edit1.text;
open;
end;
comarca1:=edit1.Text;
cab1:=´DITATAU SEGUROS - Servidores/Segurados - Comarca:´+comarca1;
cab2:=´NOME Matrícula Cargo´;
NEGRITAR AQUI
NEGRITAR AQUI->writeln(comarca,cab1);
NEGRITAR AQUI->writeln(comarca,cab2);
//writeln(ditatau1,cab3);
while not query1.eof do
begin
NEGRITAR AQUI-> nome:=format(´¬-40s´,[query1nome.Value]);NEGRITAR
Meu nome é Marcos
Através de um programa que fiz, gero um relatório em formato txt, mas gostaria de negritar algumas partes no arquivo, tem alguma função.
Como exemplo, vejam:
if savedialog1.Execute then
begin
assignfile(comarca,savedialog1.filename);
Rewrite(comarca);
end;
query1.close;
with Query1 do begin
if active then close;
Parambyname(´Comarca´).asstring:=edit1.text;
open;
end;
comarca1:=edit1.Text;
cab1:=´DITATAU SEGUROS - Servidores/Segurados - Comarca:´+comarca1;
cab2:=´NOME Matrícula Cargo´;
NEGRITAR AQUI
NEGRITAR AQUI->writeln(comarca,cab1);
NEGRITAR AQUI->writeln(comarca,cab2);
//writeln(ditatau1,cab3);
while not query1.eof do
begin
NEGRITAR AQUI-> nome:=format(´¬-40s´,[query1nome.Value]);NEGRITAR
Marcosaguiar
Curtir tópico
+ 0
Responder
Posts
13/08/2003
Afarias
Definitivamente *não* é possível defenir qualquer tipo de formatação em arquivos TEXTO puro, a não ser q vc utilize algum formato baseado em TAGs (como HTML ou RTF).
T+
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)