Копирование содержимого TStringGrid в буфер обменаDelphi , Компоненты и Классы , TStringGrid и TDrawGridКопирование содержимого TStringGrid в буфер обмена
Автор: MBo { **** UBPFD *********** by delphibase.endimus.com **** >> Копирование содержимого StringGrid в буфер обмена Копирует содержимое ячеек StringGrid в ClipBoard в формате, позволяющем вставку, например, в Word или Excel. При CopySel=True копирует выделение, иначе всю таблицу или указанный диапазон (CL- левый столбец и т.д.). Зависимости: Grids Автор: Борис Новгородов (MBo), mbo@mail.ru, Новосибирск Copyright: MBo Дата: 30 апреля 2002 г. ***************************************************** } procedure SGCopyToCLP(SG: TStringGrid; CopySel: Boolean; CL: integer = -1; RT: integer = -1; CR: integer = -1; RB: integer = -1); var i, j: Integer; s: string; begin s := ''; with SG do begin if CopySel then begin CL := Selection.Left; CR := Selection.Right; RT := Selection.Top; RB := Selection.Bottom; end; //при необходимости FixedRows и FixedCols можно заменить на 0 if (CL < FixedCols) or (CL > CR) or (CL >= ColCount) then CL := FixedCols; if (CR < FixedCols) or (CL > CR) or (CR >= ColCount) then CR := ColCount - 1; if (RT < FixedRows) or (RT > RB) or (RT >= RowCount) then RT := FixedRows; if (RB < FixedCols) or (RT > RB) or (RB >= RowCount) then RB := RowCount - 1; for i := RT to RB do begin for j := CL to CR do begin s := s + Cells[j, i]; if j < CR then s := s + #9; end; s := s + #13#10; end; end; ClipBoard.AsText := s; end; // Пример использования: SGCopyToCLP(StringGrid1, True); //выделение SGCopyToCLP(StringGrid1, False); //все ячейки SGCopyToCLP(StringGrid1, False, 1, 1, 3, 2); //диапазон, 6 ячеек Статья Копирование содержимого TStringGrid в буфер обмена раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросы:: 2008-12-04 16:01:17 :: re:Копирование содержимого TStringGrid в буфер обменапользователь: ValiDoll. >Зависимости: Grids Uses ClipBrd; Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TStringGrid и TDrawGrid ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |