Codec By GeNiUS !
genius@turkiye.com
Procedure TMemoToTMemoField;
begin
TMemoField.Assign( TMemo.Lines );
end;
Procedure TMemoFieldToTMemo;
VAR aBlobStream : TBlobStream;
Begin
aBlobStream := TBlobStream.Create(tblobfield(table1.fieldbyname('Notes')), bmRead);
Memo1.Lines.LoadFromStream( aBlobStream );
aBlobStream.Free;
end;