在复制之前检查dbPlanner（TMS）项是否存在

Question

要复制dbPlanner中的事件项，我使用了TMS网站手册中的建议：

procedure TForm1.AdvGlowButton3Click(Sender: TObject);
begin
dbPlanner2.Items.Select(dbPlanner2.Items.Selected);
dbPlanner2.Items.CopyToClipboard;
dbPlanner2.SelectCells(dbPlanner2.SelItemBegin,dbPlanner2.SelItemEnd,dbPlanner2.SelPosition +1 );
end;

但是如何检查要复制的项目是否存在？如果我单击按钮进行复制而没有选择任何项目，我会得到一个例外。

Answer 1

检查项目是否被选中的一种非常简单的方法是检查Assigned(dbPlanner2.Items.Selected)。

如果此条件解析为false，则应退出该过程。