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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

{/codecitation}

Добавить комментарий