复制DBGrid当前行到剪切板

最新推荐文章于 2023-07-22 22:29:04 发布

SafeF8

最新推荐文章于 2023-07-22 22:29:04 发布

阅读量3k

点赞数 1

分类专栏： 2. Delphi 文章标签： dataset integer string

本文链接：https://blog.csdn.net/SafeF8/article/details/504694

版权

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

摘要由CSDN通过智能技术生成

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 Assigned (