Статистика | Зарегистрировано на сайте: Всего: 51642
Онлайн всего: 45 Гостей: 45 Пользователей: 0
|
|
Каталог статей
Обмен данными между 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;
|
|
Просмотров: 486
| Рейтинг: 1.0/
7
Оштрафовать
| Жаловаться на материал |
|
|