Delphi. Трюки и эффекты - читать бесплатно онлайн полную версию книги автора Валерий Викторович Борисок (ч. 350)

...

Листинг 8.4.
Копирование текста из поля редактора Memo в буфер обмена
procedure TFormClipboard.bnCopyTextClick(Sender: TObject);
begin
//Выделяем весь текст в поле редактора
MemoText.SelectAll;
//Копируем текст
MemoText.CopyToClipBoard;
end;

Буфер обмена часто используется для хранения текста, поэтому объект Clipboard имеет специальное свойство AsText типа String, предназначенное для обработки содержимого буфера как данных текстового формата. Свойство AsText предназначено как для чтения, так и для записи. При чтении свойства данные извлекаются из буфера, а при записи – заносятся в буфер обмена (листинг 8.5).