Статистика | Зарегистрировано на сайте: Всего: 51654
Онлайн всего: 18 Гостей: 18 Пользователей: 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;
|
|
Просмотров: 489
| Рейтинг: 1.0/
7
Оштрафовать
| Жаловаться на материал |
|
|