Копирование информации из DBGrid-а в Clipboard
Читатель советует:
Простая процедура копирования информации из DBGrid-а в Clipboard может существенно облегчить жизнь при реализации требований экспорта выборок данных во внешние приемники. Удобнее вызов "прицепить" к контекстному меню грида.
С уважением, Беличенко Б.
|
unit UnGridToClb; interface Uses Windows, SysUtils, Classes, Dialogs, Grids, DBGrids, Db, DBTables, ClipBrd; procedure CopyGRDToClb(dbg :TDBGrid); //Копирует DBGrid в буфер обмена, //после чего данные отлично переносятся //как в простой текстовый редактор, так и в Excell implementation procedure CopyGRDToClb(dbg :TDBGrid); var bm : TBookMark; pch,pch1: PChar; s,s2 : string; i,j : integer; begin s := ''; for j := 0 to dbg.Columns.Count-1 do s := s + dbg.Columns.Items[j].Title.Caption +#9 ; s := s + #13+#10; if not dbg.DataSource.DataSet.active then begin ShowMessage('Нет выборки!!!'); Exit; end; try dbg.Visible := False; //Делаем грид невидимым, чтобы не тратилось время //на его перерисовку при прокрутке DataSet - просто и //эффективно bm := dbg.DataSource.DataSet.GetBookmark; // для того чтобы не // потерять текущую запись dbg.DataSource.DataSet.First; while not dbg.DataSource.DataSet.EOF do begin s2 := ''; for j := 0 to dbg.Columns.Count-1 do begin s2 := s2 + dbg.Columns.Items[j].Field.AsString +#9; end; s := s + s2 + #13+#10; dbg.DataSource.DataSet.Next; end; //Переключаем клавиатуру "в русский режим", //иначе - проблемы с кодировкой GetMem(pch,100); GetMem(pch1,100); GetKeyboardLayoutName(pch); StrCopy(pch1,pch); while pch <> '00000419' do begin ActivateKeyboardLayout(HKL_NEXT,0); GetKeyboardLayoutName(pch); if strComp(pch, pch1) = 0 then //Круг замкнулся - нет такого языка '00000419' StrCopy(pch,'00000419'); end; clipboard.AsText := s; //Данные - в буфер!!! //Возвращаем режим клавиатуры while strComp(pch, pch1)<>0 do begin ActivateKeyboardLayout(HKL_NEXT,0); GetKeyboardLayoutName(pch); end; FreeMem(pch); FreeMem(pch1); dbg.DataSource.DataSet.GotoBookmark( bm ); //ShowMessage('Данные успешно скопированы в буфер обмена.'); finally dbg.Visible := True; end; end; end. |
Замечания:
Я привожу только сомнительную часть. Мои комментарии отмечены {AK:}
|
//как в простой текстовый редактор, так и в Excell {AK: Excel - с одной L на конце} ... dbg.Visible := False; // Делаем грид невидимым, чтобы не тратилось время // на его перерисовку при прокрутке DataSet - просто и // эффективно {AK: Вот изврат, который сразу бросается в глаза. Для это предназначены методы EnableControls/DisableControls датасета!} bm := dbg.DataSource.DataSet.GetBookmark; // для того чтобы не // потерять текущую запись { АК: насколько я помню, сами борланоиды не рекомендовали пользоваться Get/SetBookmark и использовать вместо них свойство BookMark } |
Удачи!
Алексей Коган
Примечание (В.О.): вот так советы превращаются в споры и дискуссии, а то и в форумы между читателями :-) [000887]
