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

TestSamples/CompilationSamples/ClassConstructor.pas

36 строк1 KB

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������ ������������� ���������� (������������) ������������
type 
  Person = class
  private
    class arr: array of Person; // ��������� ����. ������� �� � ���������� ������, � � �������. 
    name: string;
    age: integer;
  public
    class constructor; // ����������� ������. ���������� �� �������� ������� ������� ������ � �� ������ ������ ���������� ������
    begin
      writeln('  ������ ��������� �����������');
      SetLength(arr,3);
      arr[0] := new Person('������',20);
      arr[1] := new Person('�������',19);
      arr[2] := new Person('�����',35);
    end;
    constructor (n: string; a: integer);
    begin
      name := n;
      age := a;
    end;
    function ToString: string; override;
    begin
      Result := Format('���: {0}   �������: {1}',name,age);      
    end;
    class function RandomPerson: Person; // ��������� �����. ����� ���������� ������ � ��������� �����
    begin
      Result := arr[Random(3)];
    end;
  end;
  
begin
  writeln('��������� �������');
  for var i:=1 to 5 do
    writeln(Person.RandomPerson); // ����� ���������� ������
end.