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

Советы » Записи, индексы, поля, закладки » Копирование 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.

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com