|
Обмен данными между 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; | |
Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
|
Просмотров: 473
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|