Uses
Clipbrd;
{-------------------------------------------------------------------------------
Process name: copycurrentdbline
Author: Bird
Date: 2005.10.16
Parameter: DBGrid: TDBGrid
Return Value: None
Purpose: copy the current row of DBGrid to the clipboard.
-------------------------------------------------------------------------------}
ProcedureCopycurrentdbline (DBGrid: TDBGrid );
VaR
I: integer;
Line:String;
Begin
ForI: = 0ToDBGrid. Columns. Count-1Do
Begin
IfAssigned (DBGrid. Columns. Grid. Fields [I])Then
IfLine =''Then
Line: = DBGrid. Columns. Grid. Fields [I]. Text
Else
Line: = line + ''+ DBGrid. Columns. Grid. Fields [I]. text;
End;
Clipboard. settextbuf (pchar (line ));
End;
{-------------------------------------------------------------------------------
Process name: copydbdata
Author: Bird
Date: 2005.10.16
Parameter: DBGrid: TDBGrid
Return Value: None
Purpose: Copy all the content of DBGrid to the clipboard.
-------------------------------------------------------------------------------}
ProcedureCopydbdata (DBGrid: TDBGrid );
Const
CRLF = #13 #10;
VaR
I: integer;
Lines:String;
Bookmark: pointer;
Begin
Bookmark: = DBGrid. datasource. dataset. getbookmark;
DBGrid. datasource. dataset. first;
While NotDBGrid. datasource. dataset. EOFDo
Begin
ForI: = 0ToDBGrid. Columns. Count-1Do
Begin
IfAssigned (DBGrid. Columns. Grid. Fields [I])Then
IfLines =''Then
Lines: = DBGrid. Columns. Grid. Fields [I]. Text
Else
IfI = 0Then
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;