Einzelnen Beitrag anzeigen

Benutzerbild von mischerr
mischerr

Registriert seit: 6. Feb 2004
Ort: Konz
243 Beiträge
 
Delphi 12 Athens
 
#6

Re: Textübernahme von mehrere Memofelder in RichEdit felder,

  Alt 20. Jul 2004, 18:10
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!
  Mit Zitat antworten Zitat