Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 788 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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 para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • 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

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros 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;

 

  • Curtir 1
  • Obrigado 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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 para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 788 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.