Pass static array as parameter



Pass Static array parameter
Pas2JS pascal source code
type TArr = array [1..2] of Integer; procedure Test(p: TArr); var i: Integer; begin i := 123; Writeln('= ' + IntToStr(p[1]) + ', ' + IntToStr(p[2])); Assert(i = 123); Assert(p[2] > 0); end; { unit1.pas } const c: TArr = [1, 2]; var v1: TArr = [3, 4]; v2: TArr; Begin v2 := [5, 6]; Test(c); // = 1, 2 Test(v1); // = 3, 4 Test(v2); // = 5, 6 Test([7, 8]); // = 7, 8