Загрузка TMemoField в Memo

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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;

{/codecitation}

Добавить комментарий