复制前检查 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)。

如果此条件为假，您应该退出该过程。