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

TestSamples/CompilationSamples/GetMethods.pas

19 строк349 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

{$reference 'System.Windows.Forms.dll'}
uses System.Windows.Forms,System.Reflection;

{type 
  TMainForm = class(Form)
    procedure CenterToScreen;
    begin
      inherited CenterToScreen; 
    end;
  end;}

var mi:array of MemberInfo;
    i:=0;
begin
  mi:=typeof(form).GetMembers();
  for i:=0 to mi.length-1 do
    writeln(mi[i]);
  readln
end.