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

[geanjesus]

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;
 

 

 

[Juliana Tamizou]

Boa tarde,

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

At.

[BigWings]

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;

 

[geanjesus]

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...

[Juliomar Marchetti]

Obrigado por reportar.

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