Smart pascal source code


type
  TMyRec = record
    V: Integer;
    N: String;
  end;

type
  TMyRecs = array of TMyRec;

procedure WriteLnRecs(recs: TMyRecs);
var
  i: Integer;
begin
  WriteLn(recs.Length());
  for i := recs.Low() to recs.High() do
    WriteLn(IntToStr(recs[i].V) + ': ' + recs[i].N);
end;

procedure AddRec(recs: array of TMyRec; V: Integer; N: String);
var
  k: Integer;
begin
  k := recs.Length;
  recs.SetLength(k + 1);
  recs[k].V := V;
  recs[k].N := N;
end;

{ main.pas }

Begin
  var recs := new TMyRec[0];

  WriteLnRecs(recs);
  AddRec(recs, 2, 'one');
  WriteLnRecs(recs);

  AddRec(recs, 2, 'two');
  recs.SetLength(3);
  WriteLnRecs(recs);

  recs.SetLength(1);
  WriteLnRecs(recs);

  const
    cRec: TMyRec = (V: 123; N: 'bye');

  recs[0] := cRec;
  recs[0].N := 'BYE';
  recs.Add(cRec);

  WriteLnRecs(recs);
  recs.Delete(0);
  WriteLnRecs(recs);

  { <<< CONSOLE OUTPUTS >>>
    0
    1
    2: one
    3
    2: one
    2: two
    0:
    1
    2: one
    2
    123: BYE
    123: bye
    1
    123: bye
  }
end;

function $ArraySetLenC(a, n, d) {
	var o = a.length;
	if (o == n) return;
	if (o > n) a.length = n;
	else
		for (; o < n; o++)
			a.push(d());
}

      var recs = [];
      recs = [];
      WriteLnRecs(recs);
      AddRec(recs,2,"one");
      WriteLnRecs(recs);
      AddRec(recs,2,"two");
      $ArraySetLenC(recs,3,function (){return {V:0,N:""}});
      WriteLnRecs(recs);
      $ArraySetLenC(recs,1,function (){return {V:0,N:""}});
      WriteLnRecs(recs);
      recs[0]={V:123,N:"bye"};
      recs[0].N = "BYE";
      recs.push(Clone$TMyRec({V:123,N:"bye"}));
      WriteLnRecs(recs);
      recs.shift();
      WriteLnRecs(recs);

function AddRec(recs$1, V$1, N$1) {
   var k = 0;
   k = recs$1.length;
   $ArraySetLenC(recs$1,(k+1),function (){return {V:0,N:""}});
   recs$1[k].V = V$1;
   recs$1[k].N = N$1;
};
function WriteLnRecs(recs$2) {
   var i = 0;
   WriteLn(recs$2.length);
   var $temp1;
   for(i=0,$temp1=recs$2.length;i<$temp1;i++) {
      WriteLn(((recs$2[i].V).toString()+": "+recs$2[i].N));
   }
};
/// TMyRec = record
///  [line: 35, column: 3, file: uMain]
function Copy$TMyRec(s,d) {
   d.V=s.V;
   d.N=s.N;
   return d;
}
function Clone$TMyRec($) {
   return {
      V:$.V,
      N:$.N
   }
}