delphi - 在复制之前检查 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，则应退出该过程。