Советы по Delphi

         

Копирование 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. [000465]



Содержание раздела