Discussion :

[Redsky]

Bonjour,
J'ai une fonction qui doit me copier le text rtf d'un richedit a un autre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure CopyRTF;
  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;

Ca ne marche pas. Ca ne copie rien du tout. J'ai essayer avec TStringStream au lieu de TMemoryStream mais c'est toujours pareil!

Merci de votre aide!

[Lung]

Pourquoi passes-tu par un Stream ?

:

[Redsky]

sinon il me transforme le texte rtf en string normal.
J'ai besoin de garder le format rtf.

[Lung]

En passant par un fichier, ca fonctionne :

Code :

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

1
2
RichEdit.PlainText := False;
RichEdit.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'Temp.txt');

Regarde la propriété PlainText .

[Redsky]

Ca marche pas chez moi SaveToFile.
Le fichier est creer mais il est vide!

En plus je peux pas me permettre de creer un fichier temporaire a chaque fois. je voulais utiliser SaveToStream...

[bjl]

bonjour,

je n'ai pas delphi sur ce PC donc je n'ai pas pu tester.

avez vous essayé richedit1.text := richedit2.text

avec la propriété plaintext à false (sur les 2 richedit)

[LadyWasky]

Il a raison , il faut passer par un stream

Voici une procedure qui le fait très bien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure CopyRich(Rich1, Rich2: TRichedit);
var
  MemoryStream: TMemoryStream;
begin
  if Rich1.Text <> '' then
  begin
    MemoryStream := TMemoryStream.Create;
    try
      Rich1.Lines.SaveToStream(MemoryStream);
       MemoryStream.Position := 0;
       Rich2.Lines.LoadFromStream(MemoryStream);
    finally
      MemoryStream.Free;
    end;
  end
  else
    Rich2.Clear;
end;

Bon courage

Edit: j'avais oublié les bloc de protection
Edit2 : tu remarqueras que j'utilise plutôt MemoryStream.Position := 0;

[Redsky]

Merci.
C'est un peu comme j'ai fais moi. j'y ai mis

Code :

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

MemoryStream.Position := 0;

a la place de ce que j'avais mis.
Mais ca ne marche toujours pas.

Peut etre ca a t'il un rapport avec le fait que j'utilise le composant: TRXRichEdit et pas TRichEdit...?

[LadyWasky]

Peut etre ca a t'il un rapport avec le fait que j'utilise le composant: TRXRichEdit et pas TRichEdit...?

ça se peut...

En tout cas, vérifie bien que tes propriétés PlainText sont à False.

Sinon, je ne vois pas : : :

[Kamaté]

Salut mon nom c'est kamaté
Tu peux essayer avec la méthode
Richedit1:=richedit2 ;