Smart pascal source code


type
   TRec = record
      F1 :  Integer;
      F2 : String;
   end;

procedure WriteLnArray(a : array of TRec);
var
   i : Integer;
begin
   WriteLn(IntToStr(Length(a))+':{');
   for i:=0 to High(a) do begin
      if i>0 then
         WriteLn(',');
      WriteLn('(');
      WriteLn(IntToStr(a[i].F1));
      WriteLn(',');
      WriteLn(a[i].F2);
      WriteLn(')');
   end;
   WriteLn('}');
end;

{ TApplication }
procedure TApplication.RunApp;
var
  i : Integer;
  a : array of TRec;

Begin
WriteLnArray(a);  //  0:{}

a.SetLength(3);
WriteLnArray(a);  //   3:{(0,),(0,),(0,)}

a[0].F1:=1;
a[0].F2:='one';
a[1].F1:=2;
a[1].F2:='two';
a[2].F1:=3;
a[2].F2:='three';
WriteLnArray(a);  // 3:{(1,one),(2,two),(3,three)}

a.SetLength(3);
WriteLnArray(a); // 3:{(1,one),(2,two),(3,three)}

a.SetLength(2);
WriteLnArray(a);  // 2:{(1,one),(2,two)}

a.SetLength(3);
WriteLnArray(a);  // 3:{(1,one),(2,two),(0,)}

a.SetLength(1);
WriteLnArray(a);  // 1:{(1,one)}

a.Clear;
WriteLnArray(a);  // 0:{}

a.SetLength(3);
WriteLnArray(a);  // 3:{(0,),(0,),(0,)}

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 i$1 = 0;
      var a = [];
      WriteLnArray(a);
      $ArraySetLenC(a,3,function (){return {F1:0,F2:""}});
      WriteLnArray(a);
      a[0].F1 = 1;
      a[0].F2 = "one";
      a[1].F1 = 2;
      a[1].F2 = "two";
      a[2].F1 = 3;
      a[2].F2 = "three";
      WriteLnArray(a);
      $ArraySetLenC(a,3,function (){return {F1:0,F2:""}});
      WriteLnArray(a);
      $ArraySetLenC(a,2,function (){return {F1:0,F2:""}});
      WriteLnArray(a);
      $ArraySetLenC(a,3,function (){return {F1:0,F2:""}});
      WriteLnArray(a);
      $ArraySetLenC(a,1,function (){return {F1:0,F2:""}});
      WriteLnArray(a);
      a.length=0;
      WriteLnArray(a);
      $ArraySetLenC(a,3,function (){return {F1:0,F2:""}});
      WriteLnArray(a);

function WriteLnArray(a$1) {
   var i = 0;
   WriteLn(((a$1.length).toString()+":{"));
   var $temp1;
   for(i=0,$temp1=a$1.length;i<$temp1;i++) {
      if (i>0) {
         WriteLn(",");
      }
      WriteLn("(");
      WriteLn((a$1[i].F1).toString());
      WriteLn(",");
      WriteLn(a$1[i].F2);
      WriteLn(")");
   }
   WriteLn("}");
};

function Copy$TRec(s,d) {
   d.F1=s.F1;
   d.F2=s.F2;
   return d;
}
function Clone$TRec($) {
   return {
      F1:$.F1,
      F2:$.F2
   }
}