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

TestSamples/CompilationSamples/ProcVars.pas

33 строки625 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ��� ��������� ������� ������������� ���������� ����������
// ����������� ��� ���������� ����� �������� .NET, ��� ���� �������� �������� +=, -=
var p: procedure;

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

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

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