//具体一点?
//我来猜的话
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.AsText := Table1.FieldByName('<字段名>').AsString;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('<字段名>').AsString := Clipboard.AsText;
end;
//我来猜的话
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.AsText := Table1.FieldByName('<字段名>').AsString;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('<字段名>').AsString := Clipboard.AsText;
end;
我已解决谢谢!