Dynamic Array (preset default values)

Smart pascal source code


type
  TA = array of Integer;

procedure Test(Data: TA = []);
begin
  Writeln(Length(Data));
end;

var
  a: TA := [1, 2, 3, 4];
begin
  Test(a);      // 4
WriteLn('---');
  Test;         // 0
  Test([1, 5]); // 2
  Test([]);     // 0

function Test(Data) {
   WriteLn(Data.length);
};

      var a = [],
          a = [1, 2, 3, 4].slice();
      Test(a);
      WriteLn("---");
      Test([]);
      Test([1, 5].slice());
      Test([]);