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

TestSamples/CompilationSamples/DS0024.pas

24 строки286 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}

uses 
  System,
  System.Windows.Forms; 

type proc=procedure;

procedure P;
begin
end;

var 
  p1: procedure;
  f: Form;

begin
  // ��� �� ����������
  f.Invoke(proc(p));
  p1 := P;
  // � ��� ����������
  f.Invoke(p1);
end.