拷贝DBGrid当前行

首页 | 图形图象 | 编程开发 | 操作系统 | 数据库 | 服务器 | 网络安全 | 人才酷 | 招聘 | 资源 | 酷站 | 顶尖周刊 |

热门文章

编辑推荐

相关文章
穿梭于防火墙下的黑马 DBB后门程 ORACLE应用经验(3)-DBMS_SQL封装常见数据库系统之比较 - DB2数据 DB2常用傻瓜问题1000问(之一) DB2常用傻瓜问题1000问(之二) DB2常用傻瓜问题1000问(之三) DB2常用傻瓜问题1000问(之四) DB2常用傻瓜问题1000问(之五) DB2常用傻瓜问题1000问(之六) DB2数据库的安装

您现在的位置：顶尖设计 >> IT学院 >> 编程开发 >> Delphi >> 文章正文

拷贝DBGrid当前行

作者：lw549 来源：csdn 点击：更新：2006-12-19

简介：

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;