Копирование StringList в Memo-поле и обратно

Нижеприведенный код иллюстрирует копирование TStringList в TMemoField и обратно:

procedure
 TForm1.ButtonClick(Sender: TObject);
var

  MemFld: TMemoField;
begin

  MemFld := Table1.FieldByName(DBMemo1.DataField) as
 TMemoField;
  if
 Sender = Button1 then

    MemFld.Assign(StrList)
  else

  if
 Sender = Button2 then

    StrLst.Assign(MemFld);
end
;

Примечание: Table1 должна находиться в режиме редактирования перед нажатием кнопки Button1.

Другое по теме:

• BLOBFIELD как BITMAP
• Interbase BLOB-поля
• Загрузка изображений в Blob-поля