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

{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}

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