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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 135 • TDictionary Custom Sort 3 317 • Fast Watermark Sources 3 065 • 3D Designer 4 825 • Sik Screen Capture 3 320 • Patch Maker 3 535 • Айболит (remote control) 3 637 • ListBox Drag & Drop 2 996 • Доска для игры Реверси 81 563 • Графические эффекты 3 927 • Рисование по маске 3 231 • Перетаскивание изображений 2 613 • Canvas Drawing 2 735 • Рисование Луны 2 561 • Поворот изображения 2 166 • Рисование стержней 2 161 • Paint on Shape 1 564 • Генератор кроссвордов 2 226 • Головоломка Paletto 1 764 • Теорема Монжа об окружностях 2 215 • Пазл Numbrix 1 682 • Заборы и коммивояжеры 2 052 • Игра HIP 1 279 • Игра Go (Го) 1 225 • Симулятор лифта 1 471 • Программа укладки плитки 1 214 • Генератор лабиринта 1 542 • Проверка числового ввода 1 352 • HEX View 1 490 • Физический маятник 1 355

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

Похожие по теме исходники