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

[frieder2008]

Moin zusammen,

ich habe ein TRichedit, das ich manuell mit formatiertem rtf-Text fülle. Der Text wird in einen Arbeitsspeicher-Stream geschrieben, TRichedit.plaintext:=false gesetzt und dann vom Stream in TRichedit geladen. Das funktioniert auch im Prinzip. Mein Problem ist, dass beim wiederholten Füllen des RTF zur Laufzeit manchmal dennoch zuerst der (rtf-formatierte) Plaintext erscheint. Wenn ich die selbe Aufgabe wiederhole, erscheint dann korrekt der formatierte Text als RTF-Text. Ich verstehe nicht wieso? - Plaintext=false wird vor jedem Stream-Ladevorgang gesetzt! Hat jemand eine Idee?

Danke für Eure Mühe und schöne Grüße,
frieder

[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..