Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Копирование 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 © LSD Software 2006 - 2011