проверьте, существует ли элемент dbPlanner (TMS) перед копированием

Чтобы скопировать элемент события в 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;

Но как мне проверить, существует ли вообще копируемый элемент? Если я нажму кнопку для копирования, а элемент не выбран, я получаю исключение.


delphi delphi-xe7 tms
person user763539    schedule 04.05.2015    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Очень простой способ проверить, выбран ли элемент, — проверить Assigned(dbPlanner2.Items.Selected).

Если это условие становится ложным, вы должны выйти из процедуры.

person René Hoffmann    schedule 04.05.2015