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

Written on 26 Октября 2007. Posted in [Delphi] Базы данных

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;