Советы по Delphi


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

[001295]




- Начало -  - Назад -  - Вперед -