Textübernahme von mehrere Memofelder in RichEdit felder,

[mischerr]

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!