Discussion :

[Lung]

Comment copier le texte formaté d'un TRichEdit dans un autre ?

J'ai essayé de plein de façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      FormProcedureStockee.RichEdit.Lines.Text := RichEdit.Lines.Text;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
      RichEdit.PlainText := True;
      RichEdit.Lines.SaveToFile(GetRepertoireTemp + 'Temp.rtf');
      FormProcedureStockee.RichEdit.PlainText := True;
      FormProcedureStockee.RichEdit.Lines.LoadFromFile(GetRepertoireTemp + 'Temp.rtf');

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
      RichEdit.SelectAll;
      RichEdit.CopyToClipboard;
      FormProcedureStockee.RichEdit.Lines.Clear;
      FormProcedureStockee.RichEdit.PasteFromClipboard;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
      Flux := TMemoryStream.Create;
      try
         RichEdit.Lines.SaveToStream(Flux);
         FormProcedureStockee.RichEdit.Lines.LoadFromStream(Flux);
      finally
         Flux.Free;
      end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
      Flux := TStringStream.Create;
      try
         RichEdit.Lines.SaveToStream(Flux);
         FormProcedureStockee.RichEdit.PlainText := True;
         FormProcedureStockee.RichEdit.Text := Flux.DataString;
         FormProcedureStockee.RichEdit.PlainText := False;
      finally
         Flux.Free;
      end;

J'ai essayé les codes ci-dessus en activant ou désactivant PlainText sans succès.
Soit le RichEdit destination est vide, soit le texte n'est pas formaté, soit je vois le texte du formatage (les balises).

Comment faut faire ?

[retwas]

Cela fonctionne sous mon XE2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
 var
    ms: TMemoryStream;
 begin
    ms := TMemoryStream.Create;
    try
     RichEdit1.Lines.SaveToStream(ms) ;
     ms.Seek(0, soFromBeginning) ;
     RichEdit2.Lines.LoadFromStream(ms) ;
    finally
     ms.Free;
    end;
 end;

[Lung]

Ca marche !

Ce de TMemoryStream ne revient pas tout seul au début.

[benleq]

Cela fonctionne sous mon XE2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
 var
    ms: TMemoryStream;
 begin
    ms := TMemoryStream.Create;
    try
     RichEdit1.Lines.SaveToStream(ms) ;
     ms.Seek(0, soFromBeginning) ;
     RichEdit2.Lines.LoadFromStream(ms) ;
    finally
     ms.Free;
    end;
 end;

Bonjour,
Entre 2 richedit, cela fonctionne effectivement nickel.
Par contre, entre un DBrichedit vers un richedit, le texte est bien copié, mais le formatage perdu