Загрузка 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com