n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/gen_unit.pas

41 строка547 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

unit gen_unit;

interface

uses System.Collections.Generic;

type
  ca = class
    i: integer;
    constructor(w: integer);
    begin
      i := w;
    end;
  end;
    
procedure gen_exec;

implementation

procedure gen_exec;
var
  a, b: List<ca>;
  c: integer;
  x: ca;
  k: integer;
begin
  a := new List<ca>;
  a.Add(new ca(7));
  c := a.Count;
  writeln(a.Count);
  writeln(a[0]);
  writeln(a[0].i);
  b := new List<ca>;
  b.Add(new ca(8));
  b.Add(new ca(9));
  a.AddRange(b);
  for k := 0 to a.Count - 1 do
    writeln(a[k].i);
end;

end.