RTF-Code aus RichEdit auslesen

[Nalincah]

Ich hab eine kleines Testprogramm:

Ein RichEdit, ein Memo und 2 Buttons

Mit dem ersten Knopf lässt sich der Text im RichEdit formatieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelAttributes.Style := [fsBold];
end;

Mit dem zweiten Knopf wird der Text vom RichEdit ins Memo kopiert.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Text := RichEdit1.text
end;

Aber leider wird nur der eigentliche Text (Im Memo dann ohne Formatierung) kopiert und nicht der RTF-Code.

Wie krieg ich den RTF-Code????

[ibp]

...versuchs mal mit der plaintext option im oi von richedit...

[Nalincah]

Ob ich PlainText auf true oder false stehen hab, es klappt nicht

Bin mir auch nicht sicher ob das mit

Memo1.Text := RichEdit1.Text funktioniert

[Sharky]

Zitat von ibp:

...versuchs mal mit der plaintext option im oi von richedit...

Du musst es glaube ich über einen Stream lösen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  myStream : TMemoryStream;
begin
  myStream := TMemoryStream.Create;
  try
    RichEdit1.PlainText := False;
    RichEdit1.Lines.SaveToStream(mystream);
    myStream.Position := 0;
    Memo1.lines.LoadFromStream(mystream);
  finally
    myStream.Free;
  end;
end;

[franktron]

Das geht mit einem Normalen TRichedit nicht nimm doch mal eine TRXRichedit oder TJVRichedit (RXLib oder JVCL) da kann man den StreamTyp einstellen ob Text oder RFT

[Nalincah]

Es klappt. Danke

[ibp]

welche lösung klappt denn nun ?

[Nalincah]

Achso..Die mit dem MemoryStream