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<...[ 查看全文 ]