Статистика | Зарегистрировано на сайте: Всего: 51637
Онлайн всего: 32 Гостей: 32 Пользователей: 0
![Яндекс.Метрика: данные за сегодня (просмотры) Яндекс.Метрика](//bs.yandex.ru/informer/7838140/1_0_FFFFFFFF_EFEFEFFF_0_pageviews)
|
|
Каталог статей
Обмен данными между 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;
|
|
Просмотров: 472
| Рейтинг: 1.0/
7
Оштрафовать
| Жаловаться на материал |
|
|