Difference between revisions of "Default parameter"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{MenuTranslate| page=Default parameter}} A default parameter also referred to as optional argument (or default argument) is a function or [[Procedure|procedure...") |
|||
Line 1: | Line 1: | ||
− | {{ | + | {{Default parameter}} |
A default parameter also referred to as optional argument (or default argument) is a [[Function|function]] or | A default parameter also referred to as optional argument (or default argument) is a [[Function|function]] or |
Revision as of 13:46, 22 July 2015
│
Deutsch (de) │
English (en) │
español (es) │
suomi (fi) │
français (fr) │
polski (pl) │
русский (ru) │
A default parameter also referred to as optional argument (or default argument) is a function or procedure parameter that has a default value provided to it. If the programmer does not supply a value for this parameter, the default value will be used. If the programmer does supply a value for the default parameter, the programmer-supplied value is used. The programmer can extend an existing function or procedure by adding some parameters that have default value instead of writing an identical method with different parameters.
uses SysUtils, DateUtils
function deadline_day( day: integer; month: integer = 0 ) : tDateTime;
var
n :TDateTime;
y, m, d :word;
begin
n := now;
DecodeDate( n, y, m, d );
if month = 0 then
begin
if d > day then
begin
n := IncMonth( n );
DecodeDate( n, y, m, d );
end;
end
else
begin
if month < m then n := IncYear( n );
DecodeDate( n, y, m, d );
m := month;
end;
d := day;
result := EncodeDate( y, m, d );
end;