Funktion / Stream in Richmemo laden ( Lazarus )

[mkinzler]

Man könnte auch direkt die TField-Instanz übergeben:

procedure TDM.rtf_stream_load( aField: TField; ARichMemo: TCustomRichMemo); DM.rtf_stream_load(tbl_testimony.FieldByName('TESTIMONY'),frm_testimony.RichMemo1);