uses
Clipbrd ;
{-------------------------------------------------------------------------------
过程名: CopyCurrentDBLine
作者: Bird
日期: 2005.10.16
参数: DBGrid: TDBGrid
返回值: 无
作用: 复制DBGrid当前行到剪切板
-------------------------------------------------------------------------------}
procedure CopyCurrentDBLine ( DBGrid : TDBGrid );
var
i : Integer ;
Line : String ;
begin
for i := 0 to DBGrid . Columns . Count - 1 do
begin
if Assigned (
Clipbrd ;
{-------------------------------------------------------------------------------
过程名: CopyCurrentDBLine
作者: Bird
日期: 2005.10.16
参数: DBGrid: TDBGrid
返回值: 无
作用: 复制DBGrid当前行到剪切板
-------------------------------------------------------------------------------}
procedure CopyCurrentDBLine ( DBGrid : TDBGrid );
var
i : Integer ;
Line : String ;
begin
for i := 0 to DBGrid . Columns . Count - 1 do
begin
if Assigned (