SST> поле объявлено так
SST> RICH_TEXT BLOB SUB_TYPE 1 SEGMENT SIZE 4096

SST> Текст в блоб записывается так
SST> pFIBQuery1.SQL.Text := 'UPDATE rich_text_table SET rich_text =

     :rich_text WHERE rtt_id = :rtt_id

var
   m = TMemoryStream;
   ...

begin
     m := TMemoryStream.create;
     try
       TntRichEdi1.Lines.SaveToStream(m);
       m.position := 0;
       pFIBQuery1.ParamByName('rich_text').LoadFromStream(m);
       .....
     finally
       m.free;
     end;


С уважением,
Константин Григорьевич.
===============


Ответить