Нижеприведенный код иллюстрирует копирование 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. |