复制DBGrid当前行到剪切板

最新推荐文章于 2020-11-29 14:28:10 发布

原创

最新推荐文章于 2020-11-29 14:28:10 发布 · 3.1k 阅读

标签

#dataset #integer #string

本文提供了两个Delphi过程，用于将TDBGrid的当前行和全部内容复制到剪贴板。CopyCurrentDBLine函数复制当前行的数据，而CopyDBData函数则复制整个表格内容。这两个函数通过遍历DBGrid的列和字段，组合成字符串并设置到剪贴板。

uses
   Clipbrd ;

{-------------------------------------------------------------------------------
  过程名:    CopyCurrentDBLine
  作者:      Bird
  日期:      2005.10.16
  参数:      DBGrid: TDBGrid
  返回值:    无
  作用:      复制DBGrid当前行到剪切板
-------------------------------------------------------------------------------}
procedure CopyCurrentDBLine ( DBGrid : TDBGrid );
var
   i : Integer ;
   Line : String ;
begin
   for i := 0 to DBGrid . Columns . Count - 1 do
   begin
     if

最低0.47元/天解锁文章