RichEdit und Delphi XE

[dataspider]

Hi,

also unter Delphi 2007 liefert Lines.Text bei mir den PlainText.
XE Habe ich nicht.
Aber das Setzen vom PlainText ist IMHO schon ein sauberer Weg (siehe Delphi Hilfe).

Ich habe es testweise mal über einen Stream probiert.
SaveToStream z.B. Nutzt TConverter und setzt das Format auf SF_TEXT, wenn PlainText True ist.

Hier das Beispiel über Stream:

Delphi-Quellcode:

procedure TForm11.Button1Click(Sender: TObject);
Var
  AStream: TMemoryStream;
  APlainText: Boolean;
begin
  AStream := TMemoryStream.Create;
  try
    APlainText := RichEdit1.PlainText;
    RichEdit1.PlainText := False;
    try
      RichEdit1.Lines.SaveToStream(AStream);
      AStream.Position := 0;
      Memo1.Lines.LoadFromStream(AStream);
    finally
      if APlainText <> RichEdit1.PlainText then
        RichEdit1.PlainText := APlainText;
    end;
  finally
    AStream.Free;
  end;
end;

Es sollte aber auch genauso über den einfachen Weg mit Lines.Text funktionieren.

Frank