Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на 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.

Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 307 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]