TMS DBPlanner -复制和粘贴事件

Question

我正在尝试从DBPlanner复制和粘贴一个事件。我试过：

procedure TForm1.Copy1Click(Sender: TObject);
begin
DBPlanner2.Items.Select(APlannerItem);
DBPlanner2.Items.CopyToClipboard;
DBPlanner2.SelectCells(DBPlanner2.SelItemBegin,DBPlanner2.SelItemEnd, DBPlanner2.SelPosition + 1);
end;

我得到：

dcc32错误Unit1.pas(107)：E2003未声明标识符：'APlannerItem‘

然后粘贴：

procedure TForm1.Paste1Click(Sender: TObject);
begin
DBPlanner2.Items.PasteFromClipboardAtPos;
end;

我做错什么了？

Answer 1

您似乎犯了一个典型的错误，就是从示例或其他代码中复制代码。不用担心，我们都这样做了。

编译器错误中的APlannerItem引用Copy1Click中的第一行：

DBPlanner2.Items.Select(APlannerItem);

在Copy1Click的上下文中，编译器不知道什么是APlannerItem。它可能是您从示例、文档或其他代码中引入的东西，在这种情况下，它很可能是指代码中的函数/过程参数，该行发生在该代码中。

现在您必须将其更改为要选择和复制的特定PlannerItem。我假设您在想要复制之前单击一个PlannerItem。如果是这样的话，那么您必须引用该PlannerItem。如果没有，则必须通过DBPlanner的PlannerItems索引列表访问PlannerItems，不管函数的名称是什么。我看到您在DBPlanner2中有一个Items属性，所以这可能是您想要的项的通道。甚至可能有一个ItemIndex属性，它声明选择了哪个项。

另外，请注意，您以前并不知道这一点:编译器总是试图显示错误发生的位置，如果发生错误，编译器将显示错误发生的代码的行号。在这种情况下，行号107。转到那一行，检查代码，找出问题所在。