Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

alguem sabe como.... adicionar ......um texto do componente trichedit para outro trichedit? ...mantendo as formataçoes


Go to solution Solved by BigWings,

Recommended Posts

Olá Srs do ACBR

 

alguem sabe como.... adicionar ......um texto do componente trichedit para outro trichedit, mantendo as formataçoes..

ja pesquisei muito e nao consegui ...

veja bem...nao é copiar de um para outro, e sim adicionar , mantendo as formataçoes,

sem as formatacoes eu consegui...segue....

basta

var 

RE11 :  trichedit;

RE22: TrichEdit;

begin

  RE22.lines.savetofile('arq2.rtf'); //salva  arquivo formatado

  RE22.lines.LoadFromfile('arq2.rtf');  //carrega arquivo formatado, mantém formatacao

  RE11.lines.append(RE22.text);   //perde formatacao ou

  RE11.Lines.AddStrings(RE22.Lines); //perde formatacao ou
  RE11.Lines.Add(RE22.text);  //perde formatacao ou

 LerRE2emRE1(var RE1: TRichEdit); //perde a formatacao e bagunça os dados

end;

procedure LerRE2emRE1(var RE1: TRichEdit); //perde a formatacao e bagunça os dados
var
  RE2 : TRichEdit;
  i : smallint;
  Arquivo: string;
begin
  RE2 := TRichEdit.Create(self);
  RE2.Parent := FrmRE2emRE1;
  try
    try
        Arquivo:=  'Arq2.rtf'
      

      if FileExists(Arquivo) then
        begin
          RE2.Lines.LoadFromFile(Arquivo);
        end;

       if (RE2.Lines.Count > 0) then
         begin
           for i:= 1 to 5 do
             RE1.Lines.Add('');

           for i:= 0 to (RE2.Lines.Count - 1) do
             begin
              RE1.WordWrap := false;
              RE1.Lines.Add(RE2.Lines[i]);
             end;
         end

    except
    end;
  finally
    FreeAndNil(RE2);
  end;
end;
 

 

 

Link to comment
Share on other sites

  • 2 weeks later...
  • Administradores

Boa tarde,

Moderação: Movido para este local por não se tratar de uma dúvida relacionada ao ACBr.

At.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Moderadores
  • Solution
Em 14/01/2022 at 09:06, geanjesus disse:

alguem sabe como.... adicionar ......um texto do componente trichedit para outro trichedit, mantendo as formataçoes..

Pode tentar algo assim:

  RichEdit1.SelStart := 0;
  RichEdit1.SelLength := Length(RichEdit1.Text);
  RichEdit1.CopyToClipboard;

  RichEdit2.PasteFromClipboard;

 

  • Like 1
  • Thanks 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

muito obrigado BigWings, deu certo...eu ja tinha feito um teste copiando e colando no word ...na mao....e deu certo, dai eu tive a ideia de usar o objeto word adicionar no word e depois salvar de volta como rtf...e carregar no ritchedit...pois eu nao sabia ainda que o ritchedit tinha essas funcoes de copiar para o clipboard e colar a partir dele...

pois com as outras formas , eu nao vi uma solucao, ja que nao tem um appendfromfile no ritchedit....

o loadfromfile copia os dados formatados . mas mata o que estiver no arquivo original e eu queria acrescentar os dados de um arquivo ao outro...

muito obrigado...

Link to comment
Share on other sites

  • Consultores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.