jeg måtte finne ut hvordan du kan lagre RTF formatert tekst til blob felt, og hvordan du henter den, slik at all formatering. Disse bør være generelle nok til å sette i funksjon bibliotek ... prosedyre SetRTFTextFromBlobField (dsData: TDataSet; const sField: string; reedit: TRichEdit); Var OBS: TBlobStream; begynne OBS: = TBlobStream.Create (dsData.FieldByName (sField) som TBlobField, bmRead); prøv reEdit.Lines.LoadFromStream (OBS); endelig oBS.Free; end, end, prosedyre SaveRTFTextToBlobField (dsData: TDataSet; const sField: string; reedit: TRichEdit); Var OBS: TBlobStream; begynne hvis ikke (dsData.State i [dsEdit, dsInsert]) så dsData.Edit; OBS: = TBlobStream.Create (dsData.FieldByName (sField) som TBlobField, bmWrite); prøv reEdit.Lines.SaveToStream (OBS); dsData.Post; endelig oBS.Free; end, end; Anmeldelser