Answer to Question #4756 in Delphi | Pascal for krom

Question

Question 1

A book owner uses the age of the customer and the type of books to calculate discounts

write the btnTestAgeClick event handler.All customers older than 50 years get atleest 10% discount

the header for the event handler is :
procedure TfrmConditionalDiscount.btnTestAgeClick(sender: TObject);

question 2

write the btnTestTypeClick event handler. Use a case statement. The alternativees are children(15%) reference(5%) and other(20%) if none is selected then '% discount' apperars.

The Header is :

procedure TfrmConditionalDiscount.btnTestAgeClick(sender: TObject);