Anonymous user
Parametric polymorphism: Difference between revisions
→{{header|Ada}}: - Completed references
(→{{header|C plus plus|C++}}: Removed from C plus plus category.) |
(→{{header|Ada}}: - Completed references) |
||
Line 24:
package body Container is
procedure Replace_All(
begin
The_Tree.Value := New_Value;
If The_Tree.Left /= null then
The_Tree.Left.all.Replace_All(New_Value);
end if;
if The_tree.Right /= null then
The_Tree.Right.all.Replace_All(New_Value);
end if;
end Replace_All;
| |||