|
|
|
|
Одной строкой
Копирование 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]
|
|
|
|
|