Default Parameters expressions

Smart pascal source code


procedure Test1(a: Float = 1);
begin
  WriteLn(a);
end;

procedure Test2(a: Integer = 1 + 1);
begin
  WriteLn(a);
end;

procedure Test3(a: Float = StrToInt('123'));
begin
  WriteLn(a);
end;

{ main.pas }
procedure TApplication.RunApp;
Begin
  Test1;
  Test2;
  Test3;

  Test1(10.5);
  Test1(10);
  Test1(11.5);
  { <<<<<<<<<<<< CONSOLE OUTPUTS >>>>>>>>>>>>>>>>>>>
    1
    2
    123
    10.5
    10
    11.5
  }

  Test1$1(1);
  Test2$1(2);
  Test3$1(123);
  Test1$1(10.5);
  Test1$1(10);
  Test1$1(11.5);

  function Test3$1(a) {
   WriteLn(a);
};
function Test2$1(a$1) {
   WriteLn(a$1);
};
function Test1$1(a$2) {
   WriteLn(a$2);
};