Como negritar parte arq. texto gerado via programação
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
Curtidas 0
Respostas
Afarias
13/08/2003
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+
GOSTEI 0