文章类别：Delphi 来源： 作者： 发表日期：2006-2-4 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

procedure CopyCurrentDBLine(DBGrid: TDBGrid); var   i: Integer;   Line: String; begin   for i := 0 to DBGrid.Columns.Count - 1 do begin     if Assigned(DBGrid.Columns.Grid.Fields[i]) then       if Line = '' then         Line := DBGrid.Columns.Grid.Fields[i].Text       else         Line := Line + ' ' + DBGrid.Columns.Grid.Fields[i].Text;   end;   Clipboard.SetTextBuf(pchar(Line)); end; //感谢深思提供技术支持：） procedure CopyDBData(DBGrid: TDBGrid); const   CRLF = #13#10; var   i: Integer;   Lines: String;   BookMark: Pointer; begin   BookMark := DBGrid.DataSource.DataSet.GetBookmark;   DBGrid.DataSource.DataSet.First;     while not DBGrid.DataSource.DataSet.Eof do begin     for i := 0 to DBGrid.Columns.Count - 1 do begin       if Assigned(DBGrid.Columns.Grid.Fields[i]) then         if Lines = '' then           Lines := DBGrid.Columns.Grid.Fields[i].Text         else           if i = 0 then             Lines := Lines + DBGrid.Columns.Grid.Fields[i].Text           else             Lines := Lines + ' ' + DBGrid.Columns.Grid.Fields[i].Text;     end;     Lines := Lines + CRLF;     DBGrid.DataSource.DataSet.Next;   end;   ClipBoard.SetTextBuf(PChar(Lines));   DBGrid.DataSource.DataSet.GotoBookmark(BookMark); end;

上一篇:通过api和键盘钩子彻底屏蔽任务条和开始菜单

下一篇:让Fastreport3.x支持中文PDF的输出