Ajuda RichEdit Delphi 2009

1. Ajuda RichEdit Delphi 2009

Morfeu
orfics

(usa Ubuntu)

Enviado em 18/06/2009 - 18:37h

olá pessoal tudo bem com vcs?? bom tô com um probeminha com o richedit aqui e necessito de uma ajuda...
Problema: quando crio ou edito um arquivo de texto com meu editor de texto,
ele salva "normal", ou seja, sem nenhum caracter a mais que os visíveis.Mas quando abro os textos salvos pelo meu editor com o bloco de notas, por exemplo, aparece caracteres a mais. Veja:
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fc harset0 Tahoma;}}
\viewkind4\uc1\pard\lang1046\f0\fs18 texto\par
texto\par
texto\par
texto\par
}
escrevi a palavra texto em 4 linhas com o bloco de notas, salvei, abri com meu editor e salvei. Abri o mesmo arquivo com o bloco de notas e apareceu o texto acima.Mas quando abro com meu editor aparece o texto normal. Assim:
texto
texto
texto
texto
Então, como faço pra criar, editar, salvar,... com meu editor e nos outros editores não apareçam aqueles caracteres extras??? obrigado.
vai ai o código que usei pra salvar...
__________________________________________________ ______
Código:

procedure Tprincipal.salvarClick(Sender: TObject);
begin
if Caption = 'Novo Documento' then
begin
SalvarComoClick(Sender);
exit;
end;
RichEdit.Lines.SaveToFile(Caption);
i:=0;
end;

__________________________________________________ _________
Código:


procedure Tprincipal.SalvarComoClick(Sender: TObject);
begin
SaveText.FileName := Caption;
if SaveText.Execute then
RichEdit.Lines.SaveToFile(SaveText.FileName);
Caption:=SaveText.FileName;
i:=0;
end;

__________________________________________________ __________
Acho que o problema ta no proprio RichEdit que salva as configurações atuais no documento.
Se não for abusar muito... to usando o código abaixo pra imprimir mas como não tenho impressora e não testei com nenhum amigo não sei se funciona. Dá pra alguém dizer se funciona ou, se não, como é.
__________________________________________________ _____________
Código:

procedure Tprincipal.ImprimirClick(Sender: TObject);
begin
RichEdit.Print(Text);
end;

__________________________________________________ ______________
Obrigado pela atenção.


  


2. Re: Ajuda RichEdit Delphi 2009

Helder
HelderC

(usa Ubuntu)

Enviado em 05/08/2009 - 20:52h

Isso acontece porque você está salvando o arquivo com o RichEdit. Esse formato de arquivo que vc tem é o .rtf.
Se vc quer salvar apenas .txt, ao invés do RichEdit use o Memo, o esquema de uso é o mesmo, e quando salvar vc vai ver que é salvou apenas o texto...






Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts