首页 相关文章 拷贝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<...[ 查看全文 ]

2016-02-19 标签:

拷贝DBGrid当前行的相关文章

手机页面
收藏网站 回到头部