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