TRichedit: Beim Laden aus rtf-Datei bleibt trotz plaintext=false RTF-Code sichtbar

[frieder2008]

Ok, ich habe es nach langer Suche herausbekommen: Wenn ich

Delphi-Quellcode:

Procedure RTFAusgabe(liste: tstringlist);
var
  MyMS: TMemoryStream;
begin
  MyMS := TMemoryStream.Create;
  try
    liste.SaveToStream(MyMS);
    MyMS.Seek(soFromBeginning,0);
    form1.rtf1.plaintext:= false;
    form1.rtf1.Lines.LoadFromStream(MyMS);
  finally
    MyMS.Free;
  end;
end;

durch

Delphi-Quellcode:

  rtf1.PlainText:= true;
  rtf1.Text:= liste.text;
  rtf1.PlainText:= false;

ersetze, geht es - und ist dazu noch viel einfacher.. Toll..