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

TestSamples/CompilationSamples/ms0110.pas

22 строки384 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses System.Collections.Generic;

type Person = record
  name: string;
  age: integer;
  constructor Create(nm: string; ag: integer);
  begin
    name := nm;
    age := ag
  end;
end;

var a : List<Person>;
//    p:=new Person('Иванов',20);

begin
  a := new List<Person>;
  //a.Add(p);
  a.Add(new Person('Иванов',20));
  //write(a[0].name);
  writeln(a[0].name);
end.