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





Обмен данными между TMemoField и TMemo


procedure TMemoToTMemoField;
begin
  TMemoField.Assign(TMemo.Lines);
end;

procedure TMemoFieldToTMemo;
var
  aBlobStream: TBlobStream;
begin
  aBlobStream := TBlobStream.Create(TMemoField, bmRead);
  TMemo.Lines.LoadFromStream(aBlobStream);
  aBlobStream.Free;
end;

           




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

Copyright © LSD Software 2006 - 2011