Textübernahme von mehrere Memofelder in RichEdit felder,

[Reini64]

Hi
ich habe folgendes Problem:

ich möchte in ein Richedit Feld mehrere Memofelder aus der Datenbank einfügen jeweils mit einer Überschrift dabei erhalte ich die Fehlermeldung: "Fehler bei Einfügen von RichEdit-Zeile ".

Delphi-Quellcode:

   if dm_stamm.q_detail['m1'] <> null then
      begin
        RichEdit1.Lines.Add(suchfeld[I]);  //Word in RichEdit einfügen
        RichEdit1.SelStart := Pos(suchfeld[I],RichEdit1.Text)-1; //Position des Wortes bestimmen
        RichEdit1.SelLength := Length (suchfeld[I]); //Länge festelegen
        RichEdit1.SelAttributes.Style := [fsBold];
        RichEdit1.SelLength := 0;  //Markierung aufheben.
        RichEdit1.Lines.Add(dm_stamm.q_detail['m1']);
      end;

der Fehler taucht in der Zeile: " RichEdit1.Lines.Add(dm_stamm.q_detail['m1']);"
auf.

Wa mache ich falsch ???

[mischerr]

Hallo!

Was wird denn wirklich bei Lines.Add() hinzugefügt? Erzeug doch einmal eine temp. String-Variable, schreib den Wert dann dort rein und übergib diese dann beim Lines.Add(). Ich würde mir aber zuvor einen Breakpoint setzen nund mal schaun, was da wirklich kommt!

Grüsse!

[Reini64]

es wird folgendes übergeben:

Delphi-Quellcode:

'{\rtf1\ansi\deff0{\fonttbl{\f0\froman\fcharset0 Times New Roman;}}
\viewkind4\uc1\pard\lang1031\f0\fs24 Saccharomyces boulardii, Trockenhefe 50 mg
\par 
\par }
'

[Ultimator]

Dann solltst du die Eigenschaft "Plaintext" des Richedit auf "true" setzen

[franktron]

Sag mal ist dm_stamm.q_detail['m1'] ein Blob oder ein Char Feld

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