Advertisement
believe_me

Untitled

May 18th, 2022
1,918
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TEditForm.DeleteButtonClick(Sender: TObject);
  2. var
  3.     SubscriberNumber: integer;
  4. begin
  5.     if (SubscribersStringGrid.Row <> 0) then
  6.     begin
  7.         SubscriberNumber := NumberArray[SubscribersStringGrid.Row - 1];
  8.         deleteSubscriber(SubscriberNumber);
  9.         ShowButtonClick(Sender);
  10.     end;
  11. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement