，转载delphi实例TDBGrid用右键菜单复制行粘贴行

delphi实例TDBGrid用右键菜单复制行粘贴行

这个从本质上来说就是DBGrid后台数据库的插入

右键复制当前行的相关数据到临时变量

点粘贴时，覆盖数据或插入数据！

db为数据库: 字段名id,name,string型

通过adoquery-》datasource->dbgrid,adoquery的SQL中填写select * from db

在form定义两个变量（全局）：var id,name:string;

复制代码：

procedure CopyToMem;

begin

if not adoquery.active then

begin

showmessage('数据库没有打开！');

exit;

end;

id:=adoquery.fieldbyname('id').asstring;

name:=adoquery.fieldbyname('name').asstring;

end;

procedure PasTeFromMem; //覆盖

begin

if not adoquery.active then

begin

showmessage('数据库没有打开！');

exit;

end;

adoquery.edit;

adoquery.fieldbyname('id').asstring:=id;

adoquery.fieldbyname('name').asstring:=name;

adoquery.post;

end;

procedure PasTeFromMem1; //插入

begin

if not adoquery.active then

begin

showmessage('数据库没有打开！');

exit;

end;

adoquery.insert;

adoquery.fieldbyname('id').asstring:=id;

adoquery.fieldbyname('name').asstring:=name;

adoquery.post;

end;