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;
// Thank you for your technical support :)
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.column.grid.fields [i] .text;
END;
Lines: = lines CRLF;
DBGRID.DATASOURCE.DATASET.NEXT;
END;
Clipboard.SettextBuf (Pchar (Lines));
DBGRID.DataSource.Dataset.gotobookmark (Bookmark);
END;
