Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:基础知识    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  拷贝DBGrid当前行  
 
拷贝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;
//感谢深思提供技术支持:)

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;

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站