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