LineClipboard:TLineClipboard; begin LineClipboard:=TLineClipboard.Create;
LineClipboard.LineData.Name:=StringGrid1.Cells[0, StringGrid1.Row]; LineClipboard.LineData.LastName:=StringGrid1.Cells[1, StringGrid1.Row]; LineClipboard.LineData.Bothday:=StringGrid1.Cells[2, StringGrid1.Row]; LineClipboard.LineData.Age:=StrToInt(StringGrid1.Cells[3, StringGrid1.Row]); LineClipboard.LineData.Telephone:=StringGrid1.Cells[4, StringGrid1.Row];
LineClipboard.CopyToClipboard;
LineClipboard.Free; end;
В разделе varу меня объявлена одна переменная типа TLineClipboard – объект для работы с буфером обмена, который мы написали в модуле ClipboardFormatUnit. В первой строке кода я инициализирую эту переменную.
Потом я заполняю структуру LineData объекта LineClipboard данными из выделенной строки сетки. По завершению этого процесса я копирую данные в буфер обмена с помощью вызова метода CopyToClipboard объекта LineClipboard.
Данные скопированы, значит, объект уже не нужен, и его можно уничтожать. Для этого я вызываю метод Free.
По нажатию кнопки «Вставить» пишем следующий код: