TRichMemo: RTF-Append

[Ronny58]

Hallo Zusammen,

ich habe mir eine kleine Struktur mit VirtualTreeview aufgebaut. In dem dafür vorgesehen Record gibt es ein Feld "Info" vom Typ String gibt, in dem ein RTF-String abgelegt ist.
Dieses Feld kann für jeden Node über einen kleinen RichMemo-Editor mit Kommentaren gefüllt werden. Natürlich mit reichlich Formatierung (Schrift, Farbe, Tabs, …). Klappt klasse.

Aus dieser VTV-Struktur möchte ich nun eine komplette Doku anfertigen, die für jeden Node das Feld Info ausliest und an die bereits ausgelesenen "Info"-Felder anhängt. Das ganze soll in einem TRichMemo zusammen gebastelt werden. Sozusagen ein TRichMemo.AppendRTF(RTF: String), der an eine bestehendes RTF einen weiteren RTF-String dran hängt.

Das fertige Ergebnis soll dann eine große RTF-Datei sein, die sich aus vielen kleine RTF's zusammensetzt.
Da passiert noch ein bisschen mehr. Es wird eine Inhaltsverzeichnis erzeugt, der Node-Name wird ausgelesen und ein paar weitere Felder. Daran soll sich das Feld "Info" anschließen und zum nächsten Node gegangen werden. Man könnte es im weitesten Sinne als eine Art Doku-Performer bezeichnen, wie es ihn in SAP-BW gibt. Halt nur für meine kleinen Prozesse, die ich in der Struktur verwalte (so ca. 400 Prozesse).

Alles klappt bisher soweit hervorragend. Das Inhaltverzeichnis ist fertig. Wesentliche Felder aus der VTV-Record lese ich aus. Nur das "Info"-Feld mit den RTF-String will sich nicht anhängen lassen.

Ich hatte gehofft es ginge so:

Code: Alles auswählen

 
rmEditor.Rtf := rmEditor.Rtf + Info;
 

Leider weit gefehlt.

Kann mir jemand sagen, wie ich das hinbekomme?

LG Ronny

[shokwave]

Hi,

hilft dir

Code: Alles auswählen

rmEditor.Append(Info);

weiter?

[sstvmaster]

Oder:

Code: Alles auswählen

 
uses
  RichMemo, RichMemoUtils;
...
var
  fp: TFontParams;
begin
 
  if RichMemo1.GetTextAttributes(0, fp) then
  begin
    InsertFontText(RichMemo1, 'Ich bin ein weiterer RTF Text.', fp);
  end;
...
 

[Ronny58]

Geil,

ich hätte nur nach Append schauen müssen.
Jo, das klappt ausgezeichnet mit Append.
Die Lösung von sstvmaster schau ich mir auch nochmal an.

Ich Danke Euch für die Unterstützung.