Загрузка TMemoField в Memo

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

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

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

Automatic translation

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

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

Форум

Загрузка TMemoField в Memo

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;