复制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 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 ;

{-------------------------------------------------------------------------------
  过程名:    CopyDBData
  作者:      Bird
  日期:      2005.10.16
  参数:      DBGrid: TDBGrid
  返回值:    无
  作用:      复制DBGrid全部内容到剪切板
-------------------------------------------------------------------------------}
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 ;

复制DBGrid当前行到剪切板相关推荐

js实现复制文本内容到剪切板
js实现复制文本内容到剪切板一.总结一句话总结:就是document的execCommand('copy')方法二.js实现复制文本内容到剪切板直接上代码: 1 <script type ...
本地剪切板 java,java：复制图片到系统剪切板然后怎么以图片文件的形式粘贴至本机...
java:复制图片到系统剪切板然后如何以图片文件的形式粘贴至本机? 本帖最后由 u013531487 于 2014-07-16 22:56:44 编辑代码列在下边问题是: 我先获取了待保存的图片 ...
H5 LayaAir实现复制微信号到剪切板功能
现在微信和QQ可以说普及的非常好了,在做游戏的过程中与玩家进行沟通的时候,经常会设置客服与玩家进行在线的对接和沟通. 所以,为了简化玩家的操作,在游戏里面经常设置<复制微信号>类似的按钮 ...
兼容手机PC,点击即可复制文本内容到剪切板插件clipboard.js
开源项目 https://github.com/zenorocha/clipboard.js. (拷贝文本到剪切板不应该复杂,它不应该需要许多步骤以及几百KB的文件,另外,它不应该依靠flash以及其 ...
一段js实现复制文本内容到剪切板
<script type="text/javascript"> function copyUrl2(){var Url2=document.getElementById ...
一段js实现复制文本内容到剪切板（该方法兼容所有浏览器~）
直接上代码: <script type="text/javascript"> function copyUrl2(){var Url2=document.getElem ...
实现文本复制或者剪切到剪切板-Clipboard.js
Clipboard.js-下载地址引用js文件 <script type="text/javascript" src="./dist/clipboard.min. ...
VSCode使用VIM复制内容到系统剪切板
打开VSCode的 settings.json 文件,打开方法: 1. '' Ctrl + , '' 或者文件--首选项--设置 2. 点击下图的图标在末尾添加: "vim.useSys ...
vim在系统剪切板的复制与粘贴
以前就遇到过的问题.有如下情景: 1.假设现在我要将文件a的部分内容复制到文件b中,一般情况,我会用vs或者sp命令打开这两个文件然后用y和p进行复制粘贴.但是如果分别用vim打开这两个文件就不能完成 ...

复制DBGrid当前行到剪切板

复制DBGrid当前行到剪切板相关推荐

最新文章

热门文章