Optional parameters: Difference between revisions
m
→{{header|Ada}}: rename reserved-word-named variable
m (→{{header|Ada}}: Fixed spelling.) |
m (→{{header|Ada}}: rename reserved-word-named variable) |
||
Line 30:
type Ordering is (Lexicographic, Psionic, ...); -- add others
procedure Sort (It : in out Table;
Order_By : in Ordering := Lexicographic;
Column : in Positive := 1;
private
Line 47:
Sort (My_Table); -- use default sorting
Sort (My_Table, Psionic, 5, True); -- use psionic sorting by 5th column in reverse order
Sort (It => My_Table,
... -- other stuff
end Table_Test;</lang>
| |||