Also wenn ich das richtig verstanden hab, dass möchtest Du 2/mehrere RTF formatierte Texte "mergen", allerdings macht dir das RTF Format da einen Strich durch die Rechnung. Ich hab das gerade mal ausprobiert und so hat's geklappt:
Code:
procedure TForm1.AddSomeRTF(const RTFText: string);
var mStream: TMemoryStream;
begin
mStream:= TMemoryStream.Create;
RichEdit1.Lines.SaveToStream(mStream);
mStream.Seek(-4, soFromEnd);
mStream.WriteBuffer(RTFText[1], length(RTFText));
mStream.Seek(0, soFromBeginning);
RichEdit1.Lines.LoadFromStream(mStream);
mStream.Free;
end;
Ist zwar noch ganz und garnicht schön gelöst (...bitte nicht schlagen
), aber klappt hier zumindest schonmal.
Mit dem "mStream.Seek(-4, soFromEnd);" entferne ich die letzte } des RTF-Quelltextes und füge dann dort den neuen Text ein. Von diesem neuen Text hab ich jedoch zuvor die Kopfinformationen entfernt, sodass nun nur noch "\viewkind4\uc1\pard\lang1031\f0\fs24 Saccharomyces boulardii, Trockenhefe 50 mg\par\par }" übergeben wird.
Grüsse!