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

TestSamples/CompilationSamples/ProcVars2.pas

39 строк673 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ��� ��������� ������� ������������� ���������� ����������
// ����������� ��� ���������� ����� �������� .NET, ��� ���� �������� �������� +=, -=

procedure pp;
begin
  writeln('����� ������� ���������');
end;

type 
  A = class
  private
    x: integer;
  public  
    constructor Create(xx: integer);
    begin
      x := xx;
    end;
    procedure pp;
    begin
      writeln('����� ������ ������, �������� ���� ����� ',x);
    end;
    class procedure ppstatic; 
    begin
      writeln('����� ���������� ������ ������');
    end;
  end;

var p: procedure;

begin
  p := pp;
  var a1: A := new A(5);
  p += a1.pp;
  p += A.ppstatic;
  p;
  writeln;
  p -= pp;
  p;
end.