Training program

[pascal111]

I'm training as a beginner and typed this Arabic small program, and I think it can be typed better than what I did, what do you think I have missed in this code?:

https://github.com/pascal111-fra/Lazarus-programs/blob/main/example1/unit1.pas

Complete project is in:
https://github.com/pascal111-fra/Lazarus-programs/tree/main/example1

[pascal111]

Ok! no answer, I think I need to specify a particular point. I saw before a way to gather some similar procedures in one procedure, it was using a sort of arrays or something like that, so how we can reduce the next procedures in just one procedure:

Code: Pascal  [Select][+][-]

1. procedure TForm1.CheckBox1Change(Sender: TObject);
2. begin
3.  
4.   if (checkbox1.Checked) then
5.   inc(attrib_count)
6.   else
7.   dec(attrib_count);
8.  
9. end;
10.  
11.  
12. procedure TForm1.CheckBox2Change(Sender: TObject);
13. begin
14.   if (checkbox2.Checked) then
15.   inc(attrib_count)
16.   else
17.   dec(attrib_count);
18. end;
19.  
20. procedure TForm1.CheckBox3Change(Sender: TObject);
21. begin
22.   if (checkbox3.Checked) then
23.   inc(attrib_count)
24.   else
25.   dec(attrib_count);
26. end;
27.  
28. procedure TForm1.CheckBox4Change(Sender: TObject);
29. begin
30.   if (checkbox4.Checked) then
31.   inc(attrib_count)
32.   else
33.   dec(attrib_count);
34. end;
35.  
36. procedure TForm1.CheckBox5Change(Sender: TObject);
37. begin
38.   if (checkbox5.Checked) then
39.   inc(attrib_count)
40.   else
41.   dec(attrib_count);
42. end;
43.  

[marcov]

Let any such checkbox point to code like below:

Code: Pascal  [Select][+][-]

1. procedure TForm1.CheckBox1Change(Sender: TObject);
2. begin
3.   if sender is TCheckbox then
4.    begin
5.      if TCheckbox(sender).Checked then
6.        inc(attrib_count)
7.     else
8.       dec(attrib_count);
9.    end;
10. end;

Let anyprocedure TForm1.CheckBox1Change(Sender: TObject);

[Seenkao]

Let any such checkbox point to code like below:

Code: Pascal  [Select][+][-]

1. procedure TForm1.CheckBox1Change(Sender: TObject);
2. begin
3.   if sender is TCheckbox then
4.    begin
5.      if TCheckbox(sender).Checked then
6.        inc(attrib_count)
7.     else
8.       dec(attrib_count);
9.    end;
10. end;

Let anyprocedure TForm1.CheckBox1Change(Sender: TObject);

И именно эту процедуру задайте каждому компоненту CheckBox. Не дублируйте!
Events -> OnChange -> выбрать нужную процедуру.

Eng:And it is this procedure that you set for each CheckBox component. Don't duplicate!
Events -> OnChange -> select the desired procedure.

[pascal111]

Great! guys. It works fine, but what if I would like to change this procedure name "TForm1.CheckBox1Change" to more general name. You know "TForm1.CheckBox1Change" name is like if it's for "CheckBox1Change" only?

[wildfire]

You can call the procedure anything you want eg tForm1.ACheckBoxChanged(Sender: TObject), just ensure all the relevant events point to it.

[Zvoni]

You can call the procedure anything you want eg ACheckBoxChanged, just ensure all the relevant events point to it.

... and that it has the correct signature

[wildfire]

Yeah, I should have noticed this was the beginners section.

@OP I've edited my post.

[pascal111]

I changed the code to be more acceptable in a formal academic Lazarus forum:

https://github.com/pascal111-fra/Lazarus-programs/blob/main/example1/unit1.pas