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

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Обмен данными между 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;